Hola de nuevo, tengo un nuevo problema:
metí el siguiente codigo en un Tedit para que me aceptara numeros reales y un solo punto, me funciona correctamente pero quisiera saber como se le hace para que eso funcione en las celdas de un StringGrid.
Código Delphi
[-]procedure TDatosCultivo.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9','.',#8]) then Key:=#0;
If (Key='.') and (Pos('.',Edit2.Text)>0) Then Key:=#0;
end;