Absturz verhindern/ ich krieg das mit except net gebacken

[h0815]

Zahlen kann man auch auf eine andere Art herausbekommen:

Delphi-Quellcode:

function ZahlOderNicht(const test: string): Boolean;
var
  i_zahl, i_fehler : integer
begin
  Result := True;
  val ( test, i_zahl, i_fehler );
  // i_fehler ist 0, wenn es eine Zahl ist, 
  // ansonsten die erste Stelle, die keine Ziffer ist
  Result := i_fehler=0;
  // Du kannst also auch noch folgendes machen:
  if i_fehler > 1 then
  begin
    val(copy(test,1,i_fehler-1), i_zahl, i_fehler );
    // jetzt hast Du die Zahl bis zum ersten Fehler....
  end;
end;

ich hoffe, das hilft

Grüßchens, Hans