hilfe - raffe es nicht ein raster gescheit zu sortieren :(

[KoRn117]

hallo,
ich brauche hilfe. ich will ein stringgrid sortieren was aus folgendem besteht:

(Name Punkte)
x 50
fgd 100
esg 24
dsg 1
....

das problem ist er sortiert aber nur nach der ersten zahl also steht eine 100 for niedrigeren zahlen... z.b. so sieht es dann bei mir aus

1
100
24
50

er sortiert also nur nach der ersten zahl

bitte helft mir - bin am verzweifeltn
der code:

Delphi-Quellcode:

procedure TForm1.SortierenClick(Sender: TObject);
var i,ii,anzahl:integer;
    s:string;
begin
anzahl:=10;
for ii:= 1 to anzahl do
  for i:=1 to anzahl do
    begin
      if tmpraster.Cells[1,i] < tmpraster.Cells[1,i+1] then
        begin
          s:=tmpraster.cells[1,i];
          tmpraster.cells[1,i]:=tmpraster.cells[1,i+1];
          tmpraster.cells[1,i+1]:=s;

          s:=tmpraster.cells[0,i];
          tmpraster.cells[0,i]:=tmpraster.cells[0,i+1];
          tmpraster.cells[0,i+1]:=s;

          s:=tmpraster.cells[2,i];
          tmpraster.cells[2,i]:=tmpraster.cells[2,i+1];
          tmpraster.cells[2,i+1]:=s;

         end // if end

    end // for i:=1

das prob ist bestimmt die überprüfung
if tmpraster.Cells[1,i] < tmpraster.Cells[1,i+1] then

vielen dank leute

korn117

[edit=sakura]Delphi-TAGs gesetzt. Mfg, sakura[/edit]

[Captnemo]

Ich habs jetzt nicht ausprobiert,

aber du machst einen Größenvergleicht mit STRINGS !!!

Versuchs doch mal mit Integerwerten

StrToInt(tmpraster.Cells[1,i]) < StrToInt(tmpraster.Cells[1,i+1]) Das machts bestimmt besser