string auf zahlen prüfen

[himitsu]

Versuchs mal hiermit:

Delphi-Quellcode:

Function ohneZahlen(S: String): String;
  Var I: Integer;

  Begin
    For I := Length(S) downto 1 do
      If S[I] in ['0'..'9'] Then Delete(S, I, 1);
    Result := S;
  End;

Procedure TForm1.Button1Click(Sender: TObject);
  Var StringOhneZahlen: String;

  Begin
    StringOhneZahlen := ohneZahlen(Edit1.Text);
    {...}

    Label1.Caption := StringOhneZahlen;
  End;