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.ä.