[dron-s]

САНЬКА
а что вот так не работает

Код:

function WriteEditToFile(FileName:TFilename;TextEdit:string): boolean;
 var
   f : Textfile;
 begin
   Result := False;
   AssignFile(f, FileName);
   try
     Append(f);
     Writeln(f);
     Write(f, TextEdit);
     Result := True;
   finally
     CloseFile(f);
   end;
 end;

использовать вот так

Код:

WriteEditToFile('с:\File.txt',Edit1.text);

p.s.писал прямо здесь, так может быть недочёт...