Einzelnen Beitrag anzeigen

Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
302 Beiträge
 
Delphi XE5 Professional
 
#20

AW: Destruktor für verkettete Liste

  Alt 19. Jan 2021, 16:57
procedure TListObjekt.ergaenze(neu: string);
var element: TListelement;
begin
element:=TListelement.Create(neu);
if start=nil then
begin
start:=element;
aktuell:=element;
end
else
begin
endeListe;
aktuell.next:=element;
aktuell:=aktuell.next;
end;
end;
Hallo Teesäufer,
Du kannst Deinen QuellCode hier mit Hilfe des Delphi-Symbols (= Helm mit rotem Kamm gleich über der ersten Zeile im Editor) richtig formatieren, damit er besser lesbar ist.
Gruß, Andreas
PS: Das geht auch nachträglich über den Button "Bearbeiten"
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher.
John C. Cornelius
  Mit Zitat antworten Zitat