Numerische Eingabe in Stinggrid validieren

[Oniessen]

Hallo!

Da ich da selbst jetzt 'ne halbe Ewigkeit danach gesucht habe, hier mal eine Lösung.
Unter Lazarus haben die meisten anderen Lösungen leider nicht so richtig funktioniert.
Die ersten beiden Bedingungen waren kein Problem, nur das '-' am Anfang war für mich ziemlich kniffelig (zumindest unter Lazarus).

Vieleicht hilft der Code-Schnipsel ja einem Andern weniger als 2 Tage zu suchen...


Gruß, Oliver

Delphi-Quellcode:

// Validates a Float-only input in a Cell of a TStringGrid
procedure TMyForm.MyGridKeyPress(Sender : TObject;  var Key : char);
var
CellText:Widestring;
selStart : integer;
cellRow, cellCol : integer;
begin
  cellRow:= (sender as TStringGrid).Row;
  cellCol:= (sender as TStringGrid).Col;
  CellText:= (sender as TStringGrid).Cells[cellCol,cellRow];
  selStart:= TStringCellEditor(TStringGrid(Sender).Editor).SelStart ; // exessive Typecasting to access SelStart

  if not (Key in [#8, '0'..'9', '-',  DecimalSeparator]) then Key := #0
  else if ((Key = DecimalSeparator) or (Key = '-')) and
          (Pos(Key, CellText) > 0)                       then Key := #0
  else if (Key = '-') and (selStart <> 0)                then Key := #0;
end;

Der Volständigkeit halber hier noch die TEdit Lösung (die die meisten sicher schon kennen):

Delphi-Quellcode:

procedure TMyForm.MyEditKeyPress(Sender : TObject; var Key : char);
begin
  if not (Key in [#8, '0'..'9', '-',  DecimalSeparator]) then Key := #0
  else if ((Key = DecimalSeparator) or (Key = '-')) and
          (Pos(Key, (Sender as TEdit).Text) > 0)         then Key := #0
  else if (Key = '-') and
          ((Sender as TEdit).SelStart <> 0)              then Key := #0;
end;