sos 在线等待。。。。。谢谢(50分)

C

celkelly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #1

procedure TForm1.Button2Click(Sender: TObject);
var
SN,MODEL,VNAME:string;
PISTRING;
begin
SN :='I00001';
MODEL:='SQB';
VNAME:='SN';
PI:=@VNAME;
EDIT1.Text:=PI^;

end;

我想EDIT1.TEXT结果是 I00001
而现在结果是 SN

我还怎么指一下??

 

J

jdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #2

PI:=@SN

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #3

VNAME:='SN';
這是什麼？？？

VNAME:=SN;(為什麼不是這樣)

 

C

celkelly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #4

情况是这样的,其实我是在往excel当中转数据，如果那个单元是 &SN,则赋SN 的值，是&MODEL则赋 MODEL的值
但不能写死，VNAME是这么得来的

for i:=1 to 10 do
for j:=1 to 10 do
begin
vfield:=ExcelBook.worksheets[1].cells[i,j];
if copy(vfield,1,1)='&' then
begin
vname:=copy(vfield,2,length(vfield)-1);

不知这样说是否清楚了

 

L

lmeiing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #5

procedure TForm1.Button2Click(Sender: TObject);
var
SN,MODEL,VNAME:string;
PISTRING;
begin
SN :='I00001';
MODEL:='SQB';
VNAME:='SN';
PI:=@SN;－－－－－－－－－－－－－
EDIT1.Text:=PI^;

end;

 

L

lookee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #6

恐怕不能这么做吧
字符串怎么能转换成变量名呢？
用TStringList做个字典吧

 

C

celkelly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #7

是啊,指來指去都不行.我再試試吧

 

C

celkelly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #8

THANK YOU