aus Edit in Textfile?

[DeddyH]

Delphi-Quellcode:

const Dateiname = 'name.txt';

procedure Schreiben (const sName: string);
var aFile: TextFile;
begin
  AssignFile(aFile,Dateiname);
  if FileExists(Dateiname) then
    Append(aFile)
  else
    Rewrite(aFile);
  writeln(aFile,sName);
  CloseFile(aFile);
end;

function Lesen: string;
begin
  Result := '';
  if FileExists(Dateiname) then
    begin
      AssignFile(aFile,Dateiname);
      Reset(aFile);
      readln(aFile,Result);
      CloseFile(aFile);
    end;
end;

Allerdings solltest Du entweder mit einem try-except-Block oder dem Compilerschalter $I prüfen, ob das Öffnen der Datei geklappt hat.