Dynamisches Array in Liste schreiben?

[ysveikata]

Hallo,

ich habe ein 2-dimensionales dynamisches Array und möchte Teile davon in eine Liste schreiben (um sie dann zu sortieren).
Leider funktioniert zwar die Zuweisung des kompletten Arrays auf die Liste, denn dynamische Arrays sind ja Pointer, aber die einzelnen Elemente sind vom Typ 'Real'. Was kann ich da tun?

Die relevanten Abschnitte meines Codes:

Delphi-Quellcode:

var x: Array of Array of Real;
    xlist: TList; 

...

SetLength(x,nn,nn);

x[i,j]:= ... // x wird mit Werten gefüllt

xlist.Create;

for i:=0 to nn-1 do
    for j:=0 to nn-1 do
        if x[i,j] > testvalue
            xList.Add(x[i,j]);

...

[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]

[GHorn]

"Leider..." :gruebel:


Hmm...

Delphi-Quellcode:

xList.Add(FloatToStr(x[i,j]));

Ist es das was Du suchst? Wenn Du es noch formatieren willst, nimm FloatToStrF(...)

[Astat]

Hallo ysveikata,

Die Adresse des Real Wertes abspeichern mit

Code:

 xList.Add(@x[i,j]);

Zitat:

Zitat von ysveikata

.. in eine Liste schreiben (um sie dann zu sortieren).

Die liste wird dann nach den Adressen sortiert, und nicht nach den Werten.

[DeddyH]

Zitat:

Zitat von Astat

Die liste wird dann nach den Adressen sortiert, und nicht nach den Werten.

Es sei denn, man schreibt eine entsprechende TListSortCompare für TList.Sort

[Astat]

Hallo GHorn, ist das jetzt ab D2009 neu, dass eine TList auch andere Werte als Pointe aufnehmen kann? :?:
Ist ja so einiges geändert worden, womöglich auch dass :gruebel:

Delphi-Quellcode:

  xList.Add(FloatToStr(x[i,j]));

lg. Astat

[DeddyH]

Vermutlich hat er an eine TStringlist gedacht.

[Astat]

Zitat:

Zitat von DeddyH

Vermutlich hat er an eine TStringlist gedacht.

Hallo DeddyH, hoffentlich, sonst gibts noch mehr inkompatibilitäten? :?: :gruebel:

lg. Astat

[ysveikata]

Vielen Dank erstmal, das Eintragen in die Liste mit @x[i,j] funktioniert.

Wie läuft das jetzt mit TListSortCompare um nach den Werten zu sortieren? Oder gibt s vielleicht doch ne andere Möglichkeit?

Grüße

[Blup]

Delphi-Quellcode:

function VergleicheReal(Item1, Item2: Pointer): Integer;
begin
  Result := Sign(Real(Item1^) - Real(Item2^));
end;

Liste.Sort(VergleicheReal);

Aber für was soll das Ganze gut sein?

[ysveikata]

Besten Dank, Sign kennt mein Delphi zwar nicht, aber mit if und else hat s funktioniert...