Zwei zusammenhängende Listen sortieren

[xZise]

Hallo ihr,

ich habe selber eine TIntegerList implementiert. So und in dieser stehen halt Zahlen drinne. Zusätzlich sind mit den Zahlen Strings verknüpft. Diese Strings werden dann in einer ComboBox angezeigt und hätte ich gerne sortiert. Aber sobald ich Sorted auf true setze sortiert er ja nur die StringList und somit sind die Daten nicht zurückzuverfolgen.

Wie kann ich sozusagen sagen, dass der 5. StringList-Eintrag und der 5. IntegerList-Eintrag zusammenhängen. Also das wenn er sortiert entweder die IntegerList mitsortiert oder das er jedem Stringeintrag einen Eintrag in der IntegerList zuweist und es irgendwo merkt?

MfG
xZise

[Fridolin Walther]

Wieso hast Du überhaupt 2 Listen? Weil eigentlich könntest Du den String gemeinsam mit dem Integer in der Stringlist speichern. Siehe z.B. hier:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  Classes, SysUtils;

var
  IntegerStringListe : TStringList;
  i                  : Integer;
begin
  IntegerStringListe := TStringList.Create;
  IntegerStringListe.AddObject('String 3', TObject(1));
  IntegerStringListe.AddObject('String 2', TObject(2));
  IntegerStringListe.AddObject('String 1', TObject(3));

  writeln('Vor dem sortieren:');
  for i := 0 to IntegerStringListe.Count - 1 do
    writeln('string = ' + IntegerStringListe[i] + ' - integer = ', Integer(IntegerStringListe.Objects[i]));

  IntegerStringListe.Sorted := true;
  IntegerStringListe.Sort;

  writeln;
  writeln('Nach dem sortieren:');
  for i := 0 to IntegerStringListe.Count - 1 do
    writeln('string = ' + IntegerStringListe[i] + ' - integer = ', Integer(IntegerStringListe.Objects[i]));

  readln;
  IntegerStringListe.Free;
end.

[DeddyH]

AddObject() ist Dein Freund.
S.o., diesmal war ich zu langsam :zwinker:

[himitsu]

Entweder du nimmst das Sortieren selber und schreibst dir dafür 'ne eigene Funktion, oder ...

nja, was mir dann noch einfällt, wäre die Prozedur Exchange der beiden Listen zu überschreiben.

Delphi-Quellcode:

TMyStringList = class(TStringList)
  public
    procedure Exchange(Index1, Index2: Integer); override;
  end;

procedure TMyStringList.Exchange(Index1, Index2: Integer);
begin
  IntegerList.Exchange(Index1, Index2);  // hier halt die IntegerListe ändern
  inherited;
end;

und das Selbe in der IntegerList.


Aber warum machst du nicht Beises in eine Liste?
[add] waren andere wohl schneller -.-°

[xZise]

Weil ich das mit Object nicht wusste.

MfG
xZise

[DeddyH]

Zitat:

Delphi-Quellcode:

Inherridet;

[OT] Und ich dachte, sowas krieg nur ich hin :mrgreen: [/OT]

[himitsu]

und ich war mir sicher ich hätte das vorm Absenden geändert :shock:

[xZise]

Was anderes :mrgreen:

Muss ich das Objekt dann nachher auch irgendwie freigeben?

[himitsu]

wenn du da wirklich ein Objekt drin ablegst, dann ja.

Aber du kannst auch ganz einfach deine Integer da reinkonvertieren.
SizeOf(TObject) = SizeOf(Integer)
(da TObjekt eh nur ein Zeiger auf das Objekt ist)

Delphi-Quellcode:

var i: Integer;

IntegerStringListe.AddObject('String 3', TObject(i)); 

i := Integer(IntegerStringListe.Objects[index]);

und bei der Variante mußt du nix freigeben, da nicht im "Objekt" gespeichert ist, was man freigeben muß.

[xZise]

Aber rein theoretisch könnte man damit ausversehen ein Objekt erreichen? :D (Aber habe nichts dagegen)

MfG
xZise

[Fridolin Walther]

Klar, Du kannst da auch ein Object reinpacken. Du hattest halt nach nem Integer gefragt, also hab ich da einen Integer reingepackt. Aber prinzipiell könntest Du jedem String auch ein beliebiges Objekt verpassen.

[xZise]

Zitat:

Zitat von 0xF30FC7

Klar, Du kannst da auch ein Object reinpacken. Du hattest halt nach nem Integer gefragt, also hab ich da einen Integer reingepackt. Aber prinzipiell könntest Du jedem String auch ein beliebiges Objekt verpassen.

Nein was ich meinte ist dass wenn jemand es missinterpretiert denkt es handle sich um ein Objekt ja normalerweise eine AV bekommen würde aber möglicherweise könnte der Zeiger ja auch gültig sein. Das wäre halt ein lustiger Nebeneffekt :)

MfG
xZise

[Fridolin Walther]

Achso, ja. Könntest damit auch zufällig ein Objekt erreichen. Ich mach mir hier einfach nur zu nutze, das TObject in Wirklichkeit ein Pointer ist, der letztlich genau wie ein Integer 4 Byte groß ist. Wenn Du so einen Wert dann wirklich mal als Objekt nutzen würdest, dann knallts ;).

[himitsu]

Letzendlich muß nur der Programmierer wissen, was er darin abgelegt hat und wenn er's vergißt und es knallt ... selber Schuld :angel2: