Deutsches Lazarusforum

Hallo ,

Ich will aus einer Datei, die werte Sortieren.
Die Werte stehen so in der Datei : 1;22;5.0;125.19;22.5
Die Sotierung soll sich nach dem Dritten Wert richten.

Mein versuch:

procedure Sortieren(ts: TStrings);
var flag: boolean;
i: integer;
s: string;
d1, d2: double;
begin
repeat
flag ...