hallo,
ich lerne gerade mit zeigern zu arbeiten und habe ein problem
Delphi-Quellcode:
procedure tform1.ausgabe;
var
i:integer;
begin
z:=start;
i:=0;
repeat
listbox.items[i]:=z^.name;
inc(i);
z:=z^.next;
until z=nil;
end;
procedure TForm1.closebuttonClick(Sender: TObject);
begin
close;
end;
procedure TForm1.button_eingebenClick(Sender: TObject);
begin
new(z);
z^.name:=edit_eingabe.text;
if start=nil then start:=z
else
begin
z1:=start;
while z1^.next<>nil
do z1:=z1^.next;
z1^.next:=z;
end;
z^.next:=nil;
ausgabe;
end;
wie schaffe ich es das die zeiger so verbogen werden das die namen in der listbox alphabetisch sotiert werden?
achtung: ich möchte die zeiger verbigen nicht irgendwie anders das sotieren erreichen, ich weiß das es da viel leichtere methoden gibt.
danke für hilfe,
ferby