Daten in Datenbank übertragen aus editfeldern

[rainman51]

Danke!

Wie muss eine If-anweisung lauten damit nur zahlen in einem editfeld akzeptiert werden?

If edit1.text = ???? then begin

end
else ....

[Hansa]

Fange das im OnKeyPress des Edits ab.

Delphi-Quellcode:

if not key in ['0'..'9'] then
  key := 0;

[rainman51]

Folgende Fehler treten dabei auf

[Fehler] Unit3.pas(114): Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] Unit3.pas(115): Inkompatible Typen: 'Char' und 'Integer'

[Hansa]

Du sollst das ja nicht einfach nur abschreiben. :stupid: In den zwei Zeilen ist tatsächlich ein Fehler drin. Der ist so offensichtlich, dass ich ihn schon vergessen habe. :mrgreen:

[rainman51]

Hab fehler gefunden


---> if not (key in ['0'..'9']) then
key := #0;