| 
			
			 
			
				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; 
Вот и все. |