sortieren von Adressdaten - ohne DB

[BMI]

Hi,

vermutlich wird hier erst wieder einer antworten, wenn der Rausch ausgeschlafen ist
aber egal.

Ich verwende Delphi 7 Std.


aalso: Ich möchte Adressdaten sortieren:
und zwar hab ich bisher folgende Listen verwendet - wobei ich mir vorstellen könnte, daß Profis das in Records umsetzen würden - welche ich als Anfänger aber noch nicht so gut umsetzen kann:

Nachname (String, bis 60 Zeichen)
Geburtsdatum+Zeit (Integer oder double, hatte bisher integer*10000)
Faktor (integer)

Bsp:
Meier-Müller
23.12.1954 13:34
897

Czervinski
04.02.1978 09:12
1204


Eigentlich bestimmt ne ganz triviale Aufgabe - die einfach nach Spalten (Name, GeburtsdatZeit oder Faktor sortieren zu können) per klick.

Aber ich hab's nicht geschafft, weil alle das nur mit Integer-Arrays - oftmals sogar nur als eindimensionale umgesetzt haben.
Und ich hab für alle 3 bisher Stringlisten angelegt, weil ich die leichter in einer Datei speichern und laden konnte. Und dann bei bedarf strtoint() konvertiert.
Das ist aber sicherlich auch nicht die schnelle Art.

Dabei hab ich aber noch die Strings in der ersten Spalte, die ja auch noch verglichen werden müßten. Die Integer wären ja einfacher mit dem unten beschriebenen Code umsetzbar.

Delphi-Quellcode:

funtion StringCompare (StringA, StringB: String ): bool;
var i: integer;
    S, t: String;
begin
    for i = 1 do length(StringA) begin
      if ord(StringA[i]) < ord(StringB[i]) then result := 1 else result := 0; 
    end
end;

procedure ShellSort(var aSort: array of integer);
var
  iI, iJ, iK,
  iSize: integer;
  wTemp: integer;
begin
  iSize := High(aSort);
  iK := iSize shr 1;
  while iK > 0 do
  begin
    for iI := 0 to iSize - iK do
    begin
      iJ := iI;
      while (iJ >= 0) and (aSort[iJ] > aSort[iJ + iK]) do
      begin
        wTemp := aSort[iJ];
        aSort[iJ] := aSort[iJ + iK];
        aSort[iJ + iK] := wTemp;
        if iJ > iK then
          Dec(iJ, iK)
        else
          iJ := 0
      end;
    end;
    iK := iK shr 1;
  end;
end;

Hat da vielleicht noch jemand was, was man leichter umsetzen/implementieren kann?
Herzlichen Dank.
Das Projekt ist für mich privat - nicht direkt kommerziell - d.h. es erleichtert mir einfach persönlich nur den Umgang mit den Daten, wird aber nicht verkauft o.ä.