Thema: Delphi Array Sortieren

Einzelnen Beitrag anzeigen

Tpercon

Registriert seit: 7. Jun 2002
638 Beiträge
 
Delphi 5 Professional
 
#29

Re: Array Sortieren

  Alt 13. Jan 2004, 14:51
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.
  Mit Zitat antworten Zitat