1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(...);
    sl.Add('Meine neue Zeile am Ende der Datei');
    sl.SaveToFile(...);
  finally
    sl.Free;
  end;
end;                    

1:
2:
3:

assignfile(f, dateiname);
Writeln('Text am ende');
closefile(f);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var

  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin                    { open a text file }
    AssignFile(f, OpenDialog1.FileName);
{$I-}
    Append(f);
{$I+}
    if IOResult = 0 then
    begin
      Writeln(f, 'I am appending some stuff to the end of the file.'); 
      { insert code here that would require a Flush before closing the file }
      Flush(f);  { ensures that the text was actually written to file }
      CloseFile(f);
    end
    else
      ShowMessage(SysErrorMessage(GetLastError));
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var  

 
  f: TextFile;  
begin  
  if OpenDialog1.Execute then  
  begin                    { open a text file }  
    AssignFile(f, OpenDialog1.FileName);  
    Append(f);  
    Writeln(f, 'I am appending some stuff to the end of the file.');   
    { insert code here that would require a Flush before closing the file }  
    Flush(f);  { ensures that the text was actually written to file }  
    CloseFile(f);  
  end;  

 
end;                    

1:

E/A-Fehler 32                    

1:

Append(f);                    

1:
2:
3:
4:
5:

        CloseFile(lek);
      assignFile(f, dateiname);
      append(f);
      writeln(f, datname);
      CloseFile(f);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure Log(sLogfile: String; sText: String);
var
  fLog: TextFile;
begin
  Assign(fLog, sLogfile);
  if (FileExists(sLogfile)) then Append(fLog) else Rewrite(fLog);
  WriteLn(fLog, sText);
  CloseFile(fLog);
end;