TStringList und Add-/InsertObject (Verständnisprobleme)

[Karsten]

Ich denke daß ich schon einen Schritt weiter bin, aber mit dem Speichern / Lesen in / aus eine(r) Datei bin ich kläglich gescheitert.

Delphi-Quellcode:

type
  TDaten = class(TObject)
  public
     Daten1  : string;
     Daten2  : string;
     Daten3  : string;
  end;

type
  TDatenListe = class(TObjectList)
  public
    procedure WriteToFile(DatenListe: TDatenListe; FileName: String);
    procedure ReadFromFile(DatenListe: TDatenListe; FileName: String);
  end;

var
  DatenListe : TDatenListe;

Die folgenden Proceduren habe ich aus einem Handbuch kopiert und auf meie Bedürfnisse angepasst. Angeblich soll das funktionieren, wobei man im Original Arrays mit der Variante gespeichert hat. Die Tatsache das die Daten nicht gespeichert werden lässt mich zum Schluß kommen, daß sie (die Proceduren) absolut fehlerhaft sind oder sich noch prinzipielle Fehler im Aufsetzen der Daten bzw. in der Handhabung befinden . Habe mich vorher noch nie mit Streams befasst.

Delphi-Quellcode:

procedure TDatenListe.WriteToFile(DatenListe: TDatenListe; FileName: String);
var
  DatenStream: TFileStream;
begin
  if FileExists(FileName) then
  begin;
    try
      DatenStream := TFileStream.Create(FileName, fmOpenWrite);

      DatenStream.WriteBuffer(DatenListe, SizeOf(TDatenListe));

      DatenStream.Free;
    except
      MessageDlg('Fehler beim Schreiben der Daten', mtError, [mbOK], 0);
    end;
  end
  else
  begin;
    try
      DatenStream := TFileStream.Create(FileName, fmCreate);

      DatenStream.WriteBuffer(DatenListe, SizeOf(TDatenListe));
    except
      MessageDlg('Fehler beim Schreiben der Daten', mtError, [mbOK], 0);
    end;
    DatenStream.Free;
  end;
end;

Delphi-Quellcode:

procedure TDatenListe.ReadFromFile(DatenListe: TDatenListe; FileName: String);
var
  DatenStream: TFileStream;
begin
  try
    DatenStream := TFileStream.Create(FileName, fmOpenRead);

    DatenStream.Position := 0;
    DatenStream.ReadBuffer(DatenListe, SizeOf(TDatenListe));
  except
    MessageDlg('Fehler beim Lesen der Daten', mtError, [mbOK], 0);
  end;
  DatenStream.Free;
end;

Schreiben:
DatenListe.Insert(<Position>, Daten) Löschen:
DatenListe.Delete(<Position>) Ändern:

Delphi-Quellcode:

DatenListe.Delete(<Position>)
DatenListe.Insert(<Position>, Daten)

Lesen:
??? Element aus DatenListe an <Position> in Daten einlesen [edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]