ListView und Textdatei

[Sharky]

Hai MaM,

ich glaube Du hast da ein Verständniss problem
Du erzeugst für jede deiner Methoden eine lokale Version slData deiner TStringList.
Damit ist diese natürlich lehr wenn Du sie im OnDestroy speicherst. Du brauchst also eine Instanz von TStringList welche zur gesamten Laufzeit des Programmes vorhanden ist.

hier einmal ein Beispiel:

Delphi-Quellcode:

type
  TForm_Kundenhinzufuegen = class(TForm)
    B_Hinzufuegen: TButton;
    procedure B_HinzufuegenClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    slDaten : TStringList;  // Die "globale" Instanz
    function NeueZeile : string;
  public
    { Public-Deklarationen }

  end;

implementation

{$R *.dfm}

function TForm_Kundenhinzufuegen.NeueZeile: string;
var
  sl: TStringList;
begin
// .
// So wie Du sie hast.
// .
end;

procedure TForm_Kundenhinzufuegen.FormCreate(Sender: TObject);
begin
  slDaten := TStringList.Create;
  slDaten.LoadFromFile(ExtractFilePath(Application.ExeName)+'data\kunden.txt');
end;

procedure TForm_Kundenhinzufuegen.FormDestroy(Sender: TObject);
begin
  slDaten.SaveToFile(ExtractFilePath(Application.ExeName)+'data\kunden.txt');
  slDaten.Free;
end;

procedure TForm_Kundenhinzufuegen.B_HinzufuegenClick(Sender: TObject);
begin
  slDaten.Add(NeueZeile);
end;