Код:
procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
s:string;
begin
assignfile(f,'D:\1.txt');
reset(f);
while not eof(f) do
begin
read(f,s);
memo1.text:=s;
end;
closefile(f);
end;
end.
Админ: 2-х дневный бан за несоблюдение правил форума по оформлению кода!
при использование данного кода программа зависает
в чем причина?