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