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:

procedure WirteToFile(aFileName, aText : STRING);
  VAR
    f : TextFile;
BEGIN
  AssignFile(f, aFileName);
  IF FileExists(aFileName) THEN
    Append(f)
  ELSE
    Rewrite(f);
  WriteLn(f, aText);
  CloseFile(f);
END; // Wirte To File

function ReadFromFile(aFileName : STRING) : STRING;
  VAR
    f : TextFile;
    ActLine : STRING;
BEGIN
  RESULT := '';
  IF FileExists(aFileName) THEN BEGIN
    AssignFile(f);
    Reset(f);
    While NOT EOF(f) DO BEGIN
      ReadLn(f, ActLine);
      IF Result <> '' THEN
        Result := Result + #13#10;
      Result := Result + ActLine;
    END; // Bis zum Dateiende
    CloseFile(f);
  END; // Datei Existiert
END; // ReadFromFile					

1:
2:
3:
4:

IF FileExists(aFileName) THEN
  Append(f)
 ELSE
  Rewrite(f);					

1:

Rewrite(f);					

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

var LB : TStringList;
begin
LB:= TStringList.Create;
LB.Add(Edit1.Text);
LB.SaveToFile(DeinFile);
LB.Free;
end;


var LB : TStringList;
begin
LB:= TStringList.Create;
LB.LoadFromFile(DeinFile);
Edit.Text:= LB.Text;
LB.Free;
end;