string auf zahlen prüfen

[negaH]

Delphi-Quellcode:

if StrToIntDef(Edit1.Text, -1) = -1 then 
  raise Exception.Create('keine gültige Zahl');

// oder
try
  StrToInt(Edit.Text);
// oder
  StrToFloat(Edit1.Text);
except
  raise Exception.Create('keine gültige Zahl');
end;

Gruß Hagen

[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;

[TypusMensch]

@braingrenade:

Nur um es hinzufügen zu wollen, damit keiner später noch einmal dumm nachfragt, warum dein Code nicht funzt. Dein Code funktioniert seltsamer Weise nur bei ab zweistelligen Zahlen. Eine einstellige Zahl z.B. 1 wird als alphanumerisch erkannt, nehmt als die einfache Version:

Delphi-Quellcode:

function isinteger (s:string) : boolean;
var i:integer;
begin
  result := true;
  for i := 1 to length(s) do begin
      if not (s[i] in ['-','0'..'9']) then begin
        result := false;
        exit;
      end;
  end;
end;

Fragt mich nicht wieso, habe den Code jetzt nicht weiter auseinander genommen. Habe dazu keinen Bock gehabt...

[Luckie]

Schon mal an val gedacht?

[TypusMensch]

@Luckie:

Siehe Artikel:
http://www.delphipraxis.net/internal...ight=isinteger

3. Beitrag - sakura

[braingrenade]

@TypusMensch

Also bei mir kommt wenn ich bei dem Code ne 1 eingeb die richtige Meldung, oder hab ich da was falsch verstanden

[fkerber]

Hi!

Sowie ich seinen Hinweis und Sakuras Kommentar verstehe, schlägt die prüfung mit val bei bestimmten eingaben (z.b. xa24c ) fehl.

Ciao fkerber

[TypusMensch]

@brain:

Wenn ich nur ne 1 oder nur ne 4 eingebe erkennt er es bei mir nicht als zahl an sondern als alpahnum. ??? ich weiß auch net wieso?!?

@fkerber:

Schon klar, aber es gibt in Branchen Bezeichnungen, wo die seltsamsten Sachen eingegeben werden müssen. Da is das mit Val nicht sonderlich "sicher", wie ich finde

[Luckie]

Zitat von TypusMensch:

Schon klar, aber es gibt in Branchen Bezeichnungen, wo die seltsamsten Sachen eingegeben werden müssen. Da is das mit Val nicht sonderlich "sicher", wie ich finde

So weit ich das verstanden haben, will er Prüfen, ob im Edit eine gültige Zahl steht oder nicht. Und 1235 ist wohl sowohl im kaufmännishcne bereich eine gültige Zahl als auch in der Industrie. Davon, dass die Zahl in einem bestimmten Format steht, mit irgnedwelchen Zeichen davor und / oder dahinter, davon war nie dir Rede oder?