Zitat:
Delphi-Quellcode:
Try
StrToInt(Column.Field.AsString);
except
Column.Field.AsString := 'Bitte keinen Mist eingeben';
end;
Bitte nicht so einen Mist.
Der arme Typ am Debugger kommt sonst und erwürgt dich.
TryStrToInt oder
StrToIntDef Das Beispiel war dahingehend gedacht:
Bau da bitte gefälligst eine vernünftige Fehlerbehandlung ein, aber niemals: Mach das genau so
Es sollte doch klar sein, dass man bei der Prüfung eines nummerischen Wertes, diesen im Fehlerfalle keinesfalls mit einem Text befüllt. Da kann man doch nur scheitern.
Bezüglich Dezimaltrenner:
Was steht in DefaultFormatSettings.DecimalSeparator und was wird eingegeben?
Stimmen Eingabe, Anzeige und DefaultFormatSettings.DecimalSeparator überein oder wird das "intern" bereits übersetzt?
Was soll hiermit erreicht werden, irgendwie verstehe ich es nicht:
Delphi-Quellcode:
// #8 = Backspace; #0 = empty key ;
if not (Key in [#8, '0'..'9', '-', MyDecSep]) then Key := #0
else if ((Key = MyDecSep) or (Key = '-'))
and (Pos(Key, CellText) > 0) then Key := #0
else if (Key = '-') and (selStart <> 0) then Key := #0;
SetText wird vorher auf '' gesetzt. SelStart kann daher nur noch 0 sein, ebenso SelLength. Wann soll dann diese Bedingung erfüllt sein
(selStart <> 0)
?
Wenn bei not key in auf - abgefragt wird und der - gefunden wird, wie soll dann im Else die Abfrage auf Key = '-' funktionieren?
Wie wäre es mit einem Ansatz in diese Richtung, statt If-Else-Kaskade per Case?
Delphi-Quellcode:
Case key of
// zuerst mal alles das, was in Ordnung ist: (if not key in ...)
#8 : ;
'0'..'9' : ;
'-' : ;
...
// und dann das, was geändert oder verworfen werden muss.
else
// die erste Else aus dem If bekommen wir hier schon nichtmehr
// abgebildet, da vorher ja '-' und MyDecSep schon verarbeitet wurden.
// In der zweiten Else wäre es eher unwahrscheinlich, dass sie
// noch jemals zum Tragen kommt. '-' wurde vorher schon verarbeitet
// und SelStart dürfte kaum jemals <> 0 sein.
end;
Eventuell eher so in der Art:
Delphi-Quellcode:
Case key of
// zuerst mal alles das, was in Ordnung ist: (if not key in ...)
#8 : ;
'0'..'9' : ;
'-' : ;
... // hier noch Dezimalseparator und ggfls. Tausendertrenner einfügen
... // und dann das, was geändert werden muss (wenn's sowas geben sollte).
else
key := #0; // Alles andere wird verworfen.
end;