1:
2:
3:
4:
5:

var t1: textfile;
// ...
assignfile(t1, concat(label30.caption,'OUTTXT\leihprotokoll.txt')); append(t1);
  writeln(t1, 'hi');
closefile(t1);                    

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

procedure tform1.leihprot;
var n, k, anzb   : integer;
    inhalt, anzs : string[35];
    tx           : textfile;
    strliste     : Tstringlist;
    zeile        : string[80];
begin
  assignfile(tx, label30.caption+ 'OUTTXT\leihprotokoll.txt'); reset(tx);
  while not eof(tx) do
    begin  readln(tx, zeile);  strliste.Add(zeile);  end;  // Fehler!!
  closefile(tx);

  strliste.Append('hi');
  strliste.Append(datetostr(date)+ '  '+ timetostr(time)+ '  '+ ort+ '  ***  '+ aktuser);
  strliste.SaveToFile(label30.caption+ 'OUTTXT\leihprotokoll.txt');

  showmessage('hi');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
{Für CLX-Anwendungen: uses SysUtils, Variants, Classes, QGraphics, WControls, QForms, QDialogs;
type  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
  private
    { private-Deklarationen }
  public
    { public-Deklarationen }
    ClickList: TStrings; { Feld deklarieren }
  end;
var  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
    ClickList := TStringList.Create;{ Liste erzeugen }
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ClickList.SaveToFile(ChangeFileExt(Application.ExeName, '.log'));{ die Liste speichern }
 ClickList.Free;{ Listenobjekt freigeben }
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
begin
  ClickList.Add(Format('Click at (%d, %d)', [X, Y]));{ Der Liste einen String hinzufügen }
end;

end.                    

1:
2:
3:
4:

assignfile(tx,label30.caption+ 'OUTTXT\leihprotokoll2.txt'); rewrite(tx);
      writeln(tx, 'hi');
      writeln(tx, datetostr(date), '  ', timetostr(time), '  ', ort, '  ***  ', aktuser);
    closefile(tx);                    

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

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 tf: textfile;  
begin
 assign(tf, copy(paramstr(0), 1, length(paramstr(0))-3)+'.txt');
 {$i-}
  append(tf);
  if IOResult <> 0 then
   rewrite(tf);
  if IOResult <> 0 then
   halt(1); //Fehler
 {$I+}  
 writeln(tf, 'test text für append');
 close(tf);

end.                    

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

var 
 t1: textfile;
 s: string;
// ...
s := concat(label30.caption,'OUTTXT\leihprotokoll.txt');  //diesen wert prüfen
assignfile(t1, s); append(t1);
  writeln(t1, 'hi');
closefile(t1);                    

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

procedure TForm1.FormActivate(Sender: TObject);
begin
  ProgPath := ExtractFilePath(paramstr(0));
  ImportPath := ProgPath + 'Import\';
  ExportPath := ProgPath + 'Export\';

  if fileexists(ProgPath + 'Kategorie.ini') then
    Form1.CBKategorie.Items.LoadFromFile(ProgPath + 'Kategorie.ini');

  if not DirectoryExists(ImportPath) then
    Mkdir(ImportPath);

  if not DirectoryExists(ExportPath) then
    Mkdir(ExportPath);

  DBInit;
end;