Vielleicht hättest du mal von Anfang an gesagt, dass du mit einem record spielst.
Delphi-Quellcode:
private
procedure Swap(var i,j: integer);
...
procedure TForm1.Swap(var i,j: integer);
var dummy: TelefonBArrrecord; // wie auch immer dein record heißt
begin
//kann auch sein, dass man records nicht so einfach "übertragen" kann
dummy := TelefonBArr[j];
TelefonBArr[i] := TelefonBArr[j];
TelefonBArr[j] := dummy;
end;
procedure TForm1.Sortiere;
var i,j: integer;
begin
for i:= Low(tab) to High(tab) do
for j:= i + 1 to High(tab) do begin
if tab[j].Name< tab[i].Namethen Swap(i,j);
end;
end;
Und in das ListBox kannst du natürlich auch nur einen Eintrag vom record immer hinzufügen. Also:
ListBox1.Items.Add(TelefonBArr[i].Name);
Wenn das jetzt nicht deinen Gewolltem entspricht, dann poste mal endlich genua was du willst, bzw. die relevanten Stellen deines bisherigen Codes.