Forum: Programmieren allgemein
by Teekeks,
25. Apr 2009
Danke!
Jetzt haut das mit dem String hin.
Das andere konnte ich so lösen:
function TReminderData.GetDates: TStringlist;
var hilfe1:PListe;
begin
result:=TStringList.Create;
hilfe1:=FListe;
while hilfe1^.Next<>nil do
begin
Forum: Programmieren allgemein
by Teekeks,
25. Apr 2009
Hallo!
Ich habe ein Problem:
Ich möchte eine einfache verkettete Liste eingeben,sortieren und ausgeben.
Zum eingeben hab ich das hier:
procedure TReminderData.Add(Data:TData);
var hilfe:PListe;
begin
New(hilfe);
hilfe^.Data.Info:=Data.Info;
hilfe^.Data.Termin:=data.Termin;