stringrid berechnen bei '' sperren

[Khabarakh]

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var Value: Single; Code: Integer;
begin
  if StringGrid1.Cells[ACol,ARow]='' then          //1. Möglichkeit;
    Exit;


  try                                              //2.
    Value:=StrToFloat(StringGrid1.Cells[ACol,ARow]);
  except
    Exit;
  end;


  Val(StringGrid1.Cells[ACol,ARow],Value,Code);     //3.
  if Code<>0 then
    Exit;
end;

Oder bei Integer auch StrToIntDef