Ergebnis der Suchanfrage

• Forum: Lazarus (IDE)

  AW: Float und Integer in TDBGrid validieren

   
    by HolgerX, 6. Mär 2018
  Hmm..
  
  ab hier gerade kein Lazarus, jedoch habe ich deine Prüfroutine mal anders Formuliert:
  
  if Key in then begin
  if Key = '-' then if (selStart <> 0) then Key := #0; // '-' muss an erster Stelle sein (Wenn nicht mit 'E')
  if Key = MyDecSep then begin
  if (selStart = 0) // Nicht an erster Stelle
  or (Pos(Key, CellText) > 0)...