
16.11.2008, 14:47
|
 |
Sir Richard Abramson
|
|
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
|
|
Код:
var SaveStream:TMemoryStream;
Text:String;
begin
savestream:=tmemorystream.create;
text:=edit1.text;
savestream.write(text,length(text));
text:=edit2.text;
savestream.write(text,length(text));
savestream.savetofile('FileName.txt');
savestream.free;
end;
Вот и все.
|