Stringgrid erkennt Wert nicht

[bl4ckb1rd]

Ich möchte einen 'Finanz'-Rechner schreiben. Als Tabelle benutze ich ein Stringgrid. Nun habe ich das Problem, dass Stringgrid anscheinend nicht alle Werte erkennt, die ich da eingefügt habe o.O

Ist das normal so? Muss ich irgendwo noch eine Option anmachen?


Diese Zeilen überprüfen ob sich was in den Zellen befindent:

Delphi-Quellcode:

for i := 1 to stringgrid1.rowcount -1 do begin
  if stringgrid1.cells[i,1] = '' then
  begin
    showmessage('Bitte ALLE nötigen Felder ausfüllen. '+'Reihe:'+inttostr(i)+'Spalte: 1');
    exit;
  end;

  if stringgrid1.cells[i,4] = '' then 
  begin
    showmessage('Bitte ALLE nötigen Felder ausfüllen. '+'Reihe:'+inttostr(i)+'Spalte: 4');
    exit;
  end;
end;

Hab hier 2 Screenshots gemacht, die das Problem verdeutlichen:

Hier wurde in der ersten Zeile in der ersten Spalte nichts eingeben: http://666kb.com/i/b99jyycgzan4zg1zi.jpg
Funktioniert Prima.

Hier wurde nun fast überall was eingegeben, auch in der wichtigen 4ten zeile: http://666kb.com/i/b99jz2yd3ji7s8e1a.jpg
Hier kommt der Fehler, in der 4ten Spalte (Aktienkurs) steht die Zahl 4. Trotzdem wird die If-Bedingung if stringgrid1.cells[i,4] = '' erfüllt...

Hier sind noch die 'Optionen' meines Stringgrids:

• goFixedVertLine True
  goFixedHorzLine True
  goVertLine True
  goHorzLine True
  goRangeSelect True
  goDrawFocusSelected True
  goRowSizing False
  goColSizing False
  goRowMoving False
  goEditig True
  goTabs True
  goRowSelect False
  goAlwaysShowEditor False
  goThumbTracking False