Delphi Zeichenkette Prüfen ob gültige Zahl ohne Umwandeln?

Thema durchsuchen

Ansicht

Themen-Optionen

Zeichenkette Prüfen ob gültige Zahl ohne Umwandeln?

Ein Thema von Kenshin4455 · begonnen am 28. Nov 2007 · letzter Beitrag vom 7. Feb 2011

Vorheriger Beitrag

Nächster Beitrag

Reinhard Kern

Registriert seit: 22. Okt 2006
772 Beiträge

#10

Re: Zeichenkette Prüfen ob gültige Zahl ohne Umwandeln?

29. Nov 2007, 01:26

Zitat von himitsu:

Bsp:

markieren

Delphi-Quellcode:

			B := True;

For i := 1 to Length(S) do

  If not ((S[i] in ['0'..'9']) 

    or ((i = 1) and (S[i] in ['+', '-']))) Then B := False;

If B Then {istZahl}

Hallo,

das reicht so natürlich noch nicht - Nebenbedingungen sind z.B. dass + und - nur am Anfang auftreten dürfen und dass der String nur 1 Dezimalpunkt enthalten darf, von Exponentialdarstellungen mal abgesehen. Man muss sich also eine Zustandsmaschine schreiben, der man Zeichen für Zeichen übergibt.

Gruss Reinhard