Re: string auf zahlen prüfen
Delphi-Quellcode:
Gruß Hagen
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; |
Re: string auf zahlen prüfen
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; |
Re: string auf zahlen prüfen
@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:
Fragt mich nicht wieso, habe den Code jetzt nicht weiter auseinander genommen. Habe dazu keinen Bock gehabt...
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; |
Re: string auf zahlen prüfen
Schon mal an val gedacht? :roll:
|
Re: string auf zahlen prüfen
@Luckie:
Siehe Artikel: http://www.delphipraxis.net/internal...ight=isinteger 3. Beitrag - sakura :stupid: :stupid: :stupid: |
Re: string auf zahlen prüfen
@TypusMensch
Also bei mir kommt wenn ich bei dem Code ne 1 eingeb die richtige Meldung, oder hab ich da was falsch verstanden :gruebel: |
Re: string auf zahlen prüfen
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 |
Re: string auf zahlen prüfen
@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?!? :gruebel: :gruebel: @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 :| |
Re: string auf zahlen prüfen
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:40 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz