Problem beim Ausführen

[STS301]

Hallo

Das Problem hatte sich bei mir gelöst, weiß aber nicht genau warum

ich habe hier herumgesucht und habe dann das eingefügt

Delphi-Quellcode:

function NurZahlen(Uebergabe : string) : boolean; 

VAR i : integer; 
begin 
  i := 1; 
  Result := True; 

  while (i <= Length(Uebergabe)) AND (Result = True) do 
    begin 
      IF (Uebergabe[i] IN ['0'..'9']) = False THEN 
        begin 
          ShowMessage('Fehler: Zeichen "' + Uebergabe[i] + '" an Stelle ' + IntToStr(i)); 
          Result := False; 
        end; 
      i := i + 1; 
    end; 

end;

weil ich bei mir eigentlich es einfügen wollte, um halt Buchstaben herauszufiltern

aber Danke

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]