Forum: Algorithmen, Datenstrukturen und Klassendesign
by arnof,
5. Jun 2013
Nun ich wurde mal als Listboxenprogrammierer beschimpft :thumb: um schnell eine Lösung zu machen, die würde ja einem Prof nicht gefallen, aber der wird ja auch nicht nach dem Ergebnis bezahlt sondern nur nach .... :roll:
Mit XE4 und iOS wurde mir klar, das ist das neueste vom neuen, da geht ja fast alles über meine liebe Listbox und die kann ja jetzt auch richtig viel :lol:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by arnof,
5. Jun 2013
Hallo an alle:
mal zum Verständnis: man will niemanden ärgern, wir wollen ja alle nur mal Helfen und manchmal lernt man was neues :thumb:
was DeddyH in seinem Quellcode macht und Sir Rufo im Quellcode (seinen ersten Beitrag angedeutet hat), ist einen Record der Liste zu übergeben und die Sortierfunktion entsprechen umzuleiten, das nach dem 2'ten Feld sortiert wird.
Meine Lösung macht das...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by arnof,
5. Jun 2013
Ich will mal versuchen das auf die altmodische Art zu Lösen:
var ozeile:integer;
// in die Form zwei Tmemo und eine Tlistbox einfügen
....
memo1.lines.loadfromfile('ursprung.txt'); // Textladen
Forum: Algorithmen, Datenstrukturen und Klassendesign
by arnof,
5. Jun 2013
hallo jetzt muss ich als alter Delphi Profi (D5) echt mal dumm fragen, was machst Du da ?
Du vergleichst Strings, ok das gibt die Sortierreihenfolge, ruft die Sortfunktion deine procedure solange auf bis keine Veränderung mehr auftritt oder wie muss man das verstehen ?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by arnof,
4. Jun 2013
mein Tipp speichere es in eine Datenbank ob echt oder Memory (TClientDataset) und lasse es dort sortieren ....
das ist viel weniger Code und schnell ist es auch noch