L
lxzmm_zy
Unregistered / Unconfirmed
GUEST, unregistred user!
s1:=paramstr(1);
s2:=paramstr(2);
s3:=paramstr(3);
AssignFile(F, s1);
{ File selected in dialog }
Reset(F);
Readln(F, S);
{ Read first line of file }
{ Put string in a TEdit control }
Writeln(s);
CloseFile(F);
ReadLn(s);
s2:=paramstr(2);
s3:=paramstr(3);
AssignFile(F, s1);
{ File selected in dialog }
Reset(F);
Readln(F, S);
{ Read first line of file }
{ Put string in a TEdit control }
Writeln(s);
CloseFile(F);
ReadLn(s);