![]() |
|
|
#2
|
|||
|
|||
|
Цитата:
Код:
var SaveStream:TMemoryStream;
Text:String;
begin
savestream:=tmemorystream.create;
text:=edit1.text;
savestream.write(text,length(text));
savestream.savetofile('FileName.txt');
savestream.free;
end;Вот так можно записать содержимое Txt файла в Edit. Код:
var
List: TStringList;
begin
List := TStringList.Create;
List.LoadFromFile('FileName.txt');
Edit1.Text := List.Text;
end;Последний раз редактировалось Dmitry_DM, 30.12.2012 в 17:56. |