Try Except ohne fehlermeldung

[jbg]

Zitat von Karstadt:

kann man das irgenwie nur an diese eine stelle einbauen?

Klar.

Delphi-Quellcode:

var
  Value: Integer;
begin
  if not TryStrToInt(Edit1.Text, Value) then
    Meldung
  else
  begin
    MachWas(Value);
  end;
end;