Float und Integer in TDBGrid validieren

[Delphi.Narium]

Noch nicht ausprobiert, Ereignis OnDBGrid1DrawColumnCell?

Ganz grobe Idee für das Prinzip:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  Try
    StrToInt(Column.Field.AsString);
  except
    Column.Field.AsString := 'Bitte keinen Mist eingeben'; 
  end;
end;

Natürlich sollte die Fehlermeldung zielführend sein und man muss prüfen, in welcher Spalte (DataCol) man sich befindet, da die Prüfung ja ggfls. abhängig von der geänderten Spalte sein kann.

Über Column.Field.DataType kann man auch abfragen, von welchem Typ die gerade dargestellte Spalte ist und kann dann entsprechend reagieren.

In Column.Field.FieldName bekommt man den Spaltennamen des Wertes.

Wann genau das Ereignis aufgerufen wird, hab' ich nicht nachgeschaut. Es kann aber sein, dass die Prüfungen sehr oft ausgeführt werden. Ob das Ereignis für eine Plausibilitätsprüfung wirklich sinnvoll einzusetzen ist, wage ich daher eher zu bezweifeln.

Dann gäbe es eventuell noch das Ereignis OnDataSourceDataChange zur dem TDBGrid zugewiesenen TDataSource:

Delphi-Quellcode:

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  Try
    StrToInt(Field.AsString);
  except
    Field.AsString := 'Bitte keinen Mist eingeben'; 
  end;
end;

Nächste Möglichkeit wäre das Ereignis OnBeforePost der TDataSet-Komponente, die der DataSource-Eigenschaft des TDBGrid zugewiesen wurde:

Delphi-Quellcode:

procedure TForm1.DataSetKomponenteBeforePost(DataSet: TDataSet);
begin
  Try
    StrToInt(DataSet.FieldByName('ZuPruefendeSpalte').AsString);
  except
    DataSet.FieldByName('ZuPruefendeSpalte').AsString := 'Bitte keinen Mist eingeben'; 
    // oder mit
    DataSet.Cancel;
    // das Speichern abbrechen.
  end;
end;

Musst halt mal ausprobieren, ob da ein für Dich sinnvoller und brauchbarer Ansatz bei sein könnte.