Sortiermethode mit TStringlist zurückverfolgen?

[ibp]

Hallo,
mir stellt sich eine Aufgabe und zwar habe ich ein StringGrid, dass mit Daten aus einer Datenbank gefüllt ist. Nun ist es per Programm möglich, sich über die Spalten eine Sortierreihenfolge zu definieren. Ich erstelle nun eine StringList, wobei jeder String aus dem Stringgrid zusammengesetzt wird, dieser kann je nach Zeile unterschiedliche Spalten haben.
Das sortieren ist ja jetzt nun nicht das Problem, sondern, dass ich einen Index brauche, wo jeder Datensatz vorher im Grid war (für weitere Verarbeitungen).

Gibt es noch andere Möglichkeit als mit Objekten zu arbeiten?

Delphi-Quellcode:

type
  TRfolge= class(TObject)
    position:integer;
  end;

  // ...


  slist:=TStringList.Create;

  // strings zusammensetzen
  for zeile:=0 to bis do
  begin
    s:='';
    for spalte:=0 to 3 do // nur für das beispiel, sonst unterschiedliche spalten
      s:=s+stringgrid2.Cells[spalte,zeile]; // zu sortierender String

    nr:=TRfolge.Create;
    nr.position:=zeile; // index merken

    slist.AddObject(s,nr);
  end;

  slist.Sort;

  //... weitere Verarbeitung

  // objekte freigeben
  for zeile:=0 to bis do
    (slist.Objects[zeile] as TRfolge).Free;

  sList.Free;

[Thanatos81]

Hi ibp,

Brauchst du denn unbedingt ne TStringList? Sonst würde ich dir ein Record empfehlen:

Delphi-Quellcode:

type TEintrag = Record
   Inhalt   : string;
   Position : Integer;
end;

Davon legst du dir ein dynamisches Array an, und kannst das ganze dann mit nem Quicksort sortieren.

Gruß,
Thanatos81

[ibp]

Zitat von Thanatos81:

Hi ibp,

Brauchst du denn unbedingt ne TStringList? Sonst würde ich dir ein Record empfehlen:

Delphi-Quellcode:

type TEintrag = Record
   Inhalt   : string;
   Position : Integer;
end;

Davon legst du dir ein dynamisches Array an, und kannst das ganze dann mit nem Quicksort sortieren.

Gruß,
Thanatos81

Die in StringList implementierte Sortiermethode ist imho Quicksort.
Ich versuche arrays zu vermeiden, wenn es geht, da Datensätze hinzukommen können, ist dei Behandlung mit einer StringList einfacher!

[Shaman]

Hoi

Du brauchst ja nicht unbedingt Objekte zu erstellen:

slist.AddObject(s,TObject(Position)); tuts auch. Dann fällt schon mal Create und Free weg.

Gruss
Shaman

[ibp]

Zitat von Shaman:

Hoi

Du brauchst ja nicht unbedingt Objekte zu erstellen:

slist.AddObject(s,TObject(Position)); tuts auch. Dann fällt schon mal Create und Free weg.

Gruss
Shaman

und wie wird dann der speicher wieder freigegeben, wenn du die position als tobjekt castest?

[KrasserChecker]

Gar nicht, da die Position nur eine Zahl ist, die als Zeiger behandelt wird.
Da dahinter ja kein Objekt steckt braucht auch nichts freigegeben werden.

[Robert_G]

Wird nicht vielmehr eine Box um Position angelegt um es als Objekt benutzen zu können?
Diese Box müsste sehr wohl freigegeben werden.
Oder vermische ich jetzt schon wieder .Net mit Delphi32?

[ibp]

was passiert nun hiermit eigentlich genau?, ist das nun ein object und muss das freigegeben werden oder nicht?

stringlist.AddObject(s,TObject(Position))

[KrasserChecker]

@ibp:
TObject(Position) ist ein explizites Typecasting. Dabei wird Delphi dazu gezwungen die Ganzzahl (Position) als ein Zeiger auf TObject anzusehen.
Ausgeschrieben bedeutet das in etwa: Behandle "Position" als wäre es ein Zeiger. Da ein Zeiger auch nichts anderes als eine Ganzzahl ist, sind die beiden Typen ja kompatibel.
Nur, weil Delphi so tun soll, als wäre es ein Zeiger heisst das allerdings noch lange nicht, das dort auch ein gültiges Objekt existiert. Wo sollte das auch herkommen?

@Robert_G:
Wieso muss in .NET was freigegeben werden? Ich dachte dort gibt es einen Garbage-Collector...

[Robert_G]

Zitat von KrasserChecker:

@Robert_G:
Wieso muss in .NET was freigegeben werden? Ich dachte dort gibt es einen Garbage-Collector...

Muss es nicht. Aber als Folge von Typensicherheit wird eine Box um den primitiven Wert gelegt (also Value types wie integer oder records werden in eine Instanz gepackt, bei der der Wert eine Art Feld ist).
Ich war mir jetzt nicht mehr sicher, ob Delphi das auch macht.
Ich "arbeite" schließlich nicht mehr damit sondern nutze es nur für ein paar private Spielereien.
Aber selbst wenn ich damit arbieten würde, mir würde es im Traum nicht einfallen sowas zu machen. Ist irgendwie unsauber und unschön.