nimmt meine zahlen nicht im stringgrid trotz strtoint

[Molzer]

warum bekomme ich die fehlermeldung?
"ist kein gültiger integerwert"

Delphi-Quellcode:

var a,b,c,d:integer;
procedure TForm2.Button1Click(Sender: TObject);
begin
try
    a := StrToInt(StringGrid1.Cells[0,1]) ;
    b := StrToInt(StringGrid1.Cells[0,2]) ;
    c := StrToInt(StringGrid1.Cells[0,3]) ;
    d := StrToInt(StringGrid1.Cells[0,4]) ;
except on EConvertError do
      showmessage ('Ungültige Eingabe');
      end;

[taaktaak]

Moin, Moin.

Zunächst einmal ALLEN ein GUTEN NEUES JAHR 2009!

zur Frage: Was steht in den Zellen? Alles Zahlen? Sind vielleicht "unsichtbare" Blanks enthalten?

[Matze]

Die Zelle scheint leer zu sein, doch durch try-except sollte so ein Fehler abgefangen werden.

Vielleicht weil in deinen Delphi-Optionen "Bei Sprach-Exceptions stoppen" aktiviert ist.
Starte die Anwendung mal aus dem Windows-Explorer heraus und schaue, ob die Meldung dann auch erscheint. Wenn nicht, liegt es an der genannten Einstellung.

[Molzer]

alles zahlen und wenn ich die .exe starte schreibt er die ungültige eingabe!

[Molzer]

die einstellung "Bei Sprach-Exceptions stoppen" finde ich leider nicht.

wo genau ist diese?

[Uwe Raabe]

Bei den Debugger-Optionen - genauer geht's nur wenn wir deine Delphi-Version wissen.

[Hawkeye219]

Hallo Molzer,

hast du vielleicht Zeilen und Spalten vertauscht? Dein Code erwartet die Daten in der ersten Spalte.

Gruß Hawkeye

[Molzer]

Borland® Delphi® für Microsoft® Windows™ Version 10.0.2288.42451 Update 2 Copyright © 2005 Borland®
Software Corporation. Alle Rechte vorbehalten.

[Fussball-Robby]

Benutze doch zu Testzwecken mal ein

Delphi-Quellcode:

ShowMessage('"' + StringGrid1.Cells[0,1] + '"');

Und das für alle Zellen, die du ausliest. Dann siehst du zumindest, ob in den Zellen, die du ausliest, wirklich nur eine Zahl steht.

[Molzer]

zeilen und spalten habe ich nicht vertauscht!

[Molzer]

er gibt mir nur die "" aus
:wall:

[Uwe Raabe]

Zitat:

Zitat von Molzer

Borland® Delphi® für Microsoft® Windows™ Version 10.0.2288.42451 Update 2 Copyright © 2005 Borland®
Software Corporation. Alle Rechte vorbehalten.

Delphi 2006 habe ich gerade nicht installiert, aber in Delphi 2007 findet man das so:
Tools -> Optionen -> Debugger-Optionen -> CodeGear Debugger -> Sprach-Exceptions -> Bei Sprach-Exceptions benachrichtigen

[Helmi]

Hallo,

hast du auch die richtige Zeile ausgewählt?

[taaktaak]

Zitat:

er gibt mir nur die "" aus

- dann stehen in den Zellen also gar keine Zahlen?
Seltsam...

[Molzer]

nein das "bei sprachexc..." ist nicht dabei!

[Helmi]

mach mal bitte einen screenshot deiner stringgrid

[Molzer]

so schauts aus!

[jaenicke]

Die obere linke Zelle hat den Index 0,0 und nicht 0,1. Das wird vermutlich der Fehler sein. ;-)

[taaktaak]

Jooo,
du adressierst mit Cells[Col,Row],
also Col hochzählen, nicht die Zeilen!

[Molzer]

also doch vertauscht! :wall:

dankeschön!

[Helmi]

Es müsste dann so heissen:

Delphi-Quellcode:

var a,b,c,d:integer; 
procedure TForm2.Button1Click(Sender: TObject); 
begin 
try 
    a := StrToInt(StringGrid1.Cells[0, 0]) ; 
    b := StrToInt(StringGrid1.Cells[1, 0]) ; 
    c := StrToInt(StringGrid1.Cells[2, 0]) ; 
    d := StrToInt(StringGrid1.Cells[3, 0]) ; 
except on EConvertError do 
      showmessage ('Ungültige Eingabe'); 
      end;

oder um das Except wegzubekommen:

Delphi-Quellcode:

var a,b,c,d:integer; 
procedure TForm2.Button1Click(Sender: TObject); 
begin 
  a := StrToIntDef(StringGrid1.Cells[0, 0], -1) ; 
  b := StrToIntDef(StringGrid1.Cells[1, 0], -1) ; 
  c := StrToIntDef(StringGrid1.Cells[2, 0], -1) ; 
  d := StrToIntDef(StringGrid1.Cells[3, 0], -1) ; 

  If (a = -1) or (b = -1) or (c = -1) or (d = -1) then
    ShowMessage ('Ungültige Eingabe'); 
end;

So wird bei einem Fehler (keine Zahl eingegeben in der StringGrid-Zelle) -1 als Defaultwert zurückgegeben.
Wenn ein Feld -1 beinhaltet, dann kommt die Meldung.
(Da geht natürlich nur, wenn die erlaubte Eingabe > -1 ist, also ab 0 positiv werdend...

[Molzer]

yep!

Danke Dir!

[Helmi]

Zitat:

Zitat von Helmi

Es müsste dann so heissen:

Delphi-Quellcode:

var a,b,c,d:integer; 
procedure TForm2.Button1Click(Sender: TObject); 
begin 
try 
    a := StrToInt(StringGrid1.Cells[0, 0]) ; 
    b := StrToInt(StringGrid1.Cells[1, 0]) ; 
    c := StrToInt(StringGrid1.Cells[2, 0]) ; 
    d := StrToInt(StringGrid1.Cells[3, 0]) ; 
except on EConvertError do 
      showmessage ('Ungültige Eingabe'); 
      end;

oder um das Except wegzubekommen:

Delphi-Quellcode:

var a,b,c,d:integer; 
procedure TForm2.Button1Click(Sender: TObject); 
begin 
  a := StrToIntDef(StringGrid1.Cells[0, 0], -1) ; 
  b := StrToIntDef(StringGrid1.Cells[1, 0], -1) ; 
  c := StrToIntDef(StringGrid1.Cells[2, 0], -1) ; 
  d := StrToIntDef(StringGrid1.Cells[3, 0], -1) ; 

  If (a = -1) or (b = -1) or (c = -1) or (d = -1) then
    ShowMessage ('Ungültige Eingabe'); 
end;

So wird bei einem Fehler (keine Zahl eingegeben in der StringGrid-Zelle) -1 als Defaultwert zurückgegeben.
Wenn ein Feld -1 beinhaltet, dann kommt die Meldung.
(Da geht natürlich nur, wenn die erlaubte Eingabe > -1 ist, also ab 0 positiv werdend...

Oder:

Delphi-Quellcode:

var a,b,c,d:integer; 
procedure TForm2.Button1Click(Sender: TObject); 
begin 
  If not TryStrToInt(StringGrid1.Cells[0, 0], a) or
     not TryStrToInt(StringGrid1.Cells[1, 0], b) or
     not TryStrToInt(StringGrid1.Cells[2, 0], c) or
     not TryStrToInt(StringGrid1.Cells[3, 0], d) then
    ShowMessage ('Ungültige Eingabe'); 
end;

(So wärst unabhängig von der Eingabe - aber auf die Eingabe von Nicht-Zahlen wird trotzdem geprüft...)

[taaktaak]

da wir jetzt beim Optimieren angekommen sind:
Eine Schleife (und ein Integer-Array) wären in diesem Fall wohl schon überlegenswert...

[Hawkeye219]

@Helmi: TryStrToInt liefert im Erfolgsfall den Wert True!

Gruß Hawkeye

[Helmi]

Zitat:

Zitat von Hawkeye219

@Helmi: TryStrToInt liefert im Erfolgsfall den Wert True!

Gruß Hawkeye

Danke - habs repariert