Hallo,
nimm doch
Result:= AnsiStrIComp(PChar(theStr1), PChar(theStr2));
zum vergleichen.
Zum Algorithmus:
Ich würde erst mal 2 Funktionen schreiben.
// string an thePos ermitteln
function GetString(thePos: Integer): String;
// Listenelemente tauschen
procedure Exchange(thePos1, thePos2: Integer);
Mit den beiden und dem Bubblesort sollte das dann ja wohl kein Problem sein.
Gewinnt zwar keinen Preis, aber soll ja auch nicht
Heiko