Eingabe von Integerwerten in TEdit, TStringgrid, etc.

[gmarts]

Hallo,
wie realisiere ich z.B ein Edit, welches z.B. nur Integereingaben behandelt?
Ich meine allerdings nicht MaskEdit, da der Rückgabewert(maskedit.text) auch ein String ist.
Auf StrToInt() will ich auch nicht zurückgreifen.

Die Frage läßt sich auch auf z.B. ein StringGrid ausweiten, also ein Integergrid.

MfG
GM

[Meflin]

hi,
dazu gibts doch in den beispielen SpinEdit!

[fkerber]

Hi!

Du kannst im Keydown oder Keypress verhindern, dass etwas anderes als Zahlen eingegeben werden, aber auch dann ist es noch ein String, den du aber ohne Gefahr mit StrtoInt umwandeln kannst.

Warum willst du strtoint nicht verwenden?


Ciao fkerber

[Bernhard Geyer]

Dazu kannst Du das OnKeyDown-Event verwenden und für alle nicht verwendeten Tastendrücke den Wert von Key auf 0 setzen.

[Meflin]

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(sender: TObject; var key: Char);
begin
  if not (key in [#8, #9, #48 .. #57]) then key:=#0;
end;

so ging das dann

[gmarts]

Tjoa, muss man erstmal drauf kommen, in den Beispielen nachzuschauen; ich Depp. :)

Vielen Dank!!!

Gibt es sowas auch als Grid oder Listbox?

Zitat:

Warum willst du strtoint nicht verwenden?

Der Übersichtlichkeit wegen. :)

[Jörn]

Dann schreibe dir eine Komponente, die das intern schon macht, mit strtoint und inttostr. Sollte eine schnell erledigte Sache sein.