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:

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    MeineListe: TStringList;
  public
    { Public-Deklarationen }
  end;


procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  MeineListe:= TStringList.Create;
  try
    MeineListe.LoadFromFile(Dateiname);

    // mach irgendwas mit der Liste...

    MeineListe.SaveTofile(Dateiname);
  finally
    MeineListe.Free
  end
end;					

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

procedure TEditItemFrame.BOKClick(Sender: TObject);
var
    i:integer;
    temp:string;
    strList:TSTringList;
begin
  if bNewItem then begin
    // erzeuge neuen Eintrag (Append())
  end else begin <span style="font-weight: bold"> 
    strList.Create;
    try
     strList.LoadFromFile('C:\Eigene Dateien\auto.txt'{MainFrame.FileName});
     strList[4*datapos]:=EditName.Text;
     strList[4*datapos+1]:=EditLocation.Text;
     strList[4*datapos+2]:=EditChars.Text;
     strList[4*datapos+3]:=EditNumber.Text;
     strList.SaveToFile(MainFrame.FileName);
    finally
     strList.Free;
    end </span>
 end;
  Close;
  MainFrame.ShowData;
end;					

1:

strList.Create;					

1:

strList :=  TStringList.Create;					

1:
2:
3:
4:
5:

var
  aStringList: TStringList;

aStringList.Create;
aStringList := TStringList.Create;