Problem mit Adresse und EConvertError

[Johannes013]

Hi Leute,

Ich komme schnell zur Sache:

Die Überprüfing eines Strings auf einen Integer (mit try-except und on-do) läuft nicht so, wie ich es gern hätte. Es erscheint beim aktivieren einer Zelle der CPU und meldet, er habe ein Problem mit einer Adresse (s. Anhang).

Mein Code:

Delphi-Quellcode:

procedure THauptfenster.SudokuGetEditText(Sender: TObject; ACol,ARow: Integer; var Value: String);
var Temp: String;
begin
  Temp:=Value;
  try
    StrToFloat(Temp);
  except
    on EConvertError do Sudoku.Cells[ACol,ARow]:='';
  end;
end;

Kann mir da jemand helfen?
Danke im voraus.

mfg

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

procedure THauptfenster.SudokuGetEditText(Sender: TObject; ACol,ARow: Integer; var Value: String);
var dummy: double;
begin
  if not TryStrToFloat(Value, dummy) then
    Value := '';
end;

[Johannes013]

danke.