这个循环如何修改？

[Jay_L]

var i : double;
begin
i := 0.1;
if i <= 10 then
begin
EdPackCode.Text := varchar(i);
qyED05.FieldByName('PackCode').AsString := EdPackCode.Text;
i = i+0.1;
end;
end;


[Error] stPackingFrm.pas(110): Undeclared identifier: 'varchar'
[Error] stPackingFrm.pas(112): ':=' expected but '=' found

[梅青松]

var i : double;
begin
i := 0.1;
if i <= 10 then
begin
EdPackCode.Text := FloatToStr(i); //--
qyED05.FieldByName('PackCode').AsString := EdPackCode.Text;
i := i+0.1; //赋值用 :=
end;
end;

[bee2518]

改成这样：
var i : double;
begin
i := 0.1;
if i <= 10 then
begin
EdPackCode.Text := floattostr(i);//改了
qyED05.FieldByName('PackCode').AsString := EdPackCode.Text;
i := i+0.1; //加了：
end;
end;

[hsmserver]

begin
i := 0.1;
while i <= 10 do
begin
EdPackCode.Text := varchar(i);
qyED05.FieldByName('PackCode').AsString := EdPackCode.Text;
i = i+0.1;
end;
end;

[wilowind]

EdPackCode.Text := varchar(i);
qyED05.FieldByName('PackCode').AsString := EdPackCode.Text;
i = i+0.1;
------------------------

EdPackCode.Text := FloatToStr(i);
qyED05.FieldByName('PackCode').AsString := EdPackCode.Text;
i := i+0.1;

[bee2518]

晕，同时回答

[hsmserver]

晕，没看到，：=
呵呵

[hsmserver]

var i : double;
begin
i := 0.1;
while i <= 10 do
begin
EdPackCode.Text := varchar(i);
qyED05.FieldByName('PackCode').AsString := EdPackCode.Text;
i = i+0.1;
end;
end;

[Jay_L]

谢谢诸位！
现在就结帖！