Fehlerhafte Ausgabe bei Stringlist+Verketteter liste

[Klaus01]

Guten Morgen,

siehe meine Kommentare

Delphi-Quellcode:

procedure TReminderData.Add(Data:TData);
var hilfe:PListe;
begin
  New(hilfe);
  hilfe^.Data.Info:=Data.Info;
  hilfe^.Data.Termin:=data.Termin;
  hilfe^.Next:=FListe;
  FListe:=hilfe;
  Dispose(hilfe);  // Hier wirfst Du das angehänge Element wieder weg.
                   // Auch FListe wird hier elemeniert.
  SortData;
end;

Grüße
Klaus