stringrid berechnen bei '' sperren

[mr.floppy81]

Moin,

hatte schoneinmal so ein ähnliches Prob komme aber trotzdem nicht weiter.

Als ich fülle ein stringgrid. Wenn ich eine zelle des Stringgrids aussuche mit selectcell soll die letzte spalte des stringgrids berechnet werden.
Wie kann ich das ereichen, dass wenn '' also nichts eingegeben wird nicht die Fehlermeldung erscheint " '' ist kein gültiger Gleitkommawert"?

Habe schon while not und if then probiert aber die schleifen machen das net :( .
LG Andreas

[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