Ist String eine gültige Zahl?"

[Pseudemys Nelsoni]

... prüft ob ein wort nur zahlen enthält? also sowas wie

if isInt(text) then //

hab in der hilfe nichts passendes gefunden

[sakura]

Wie wäre es mit Val, die gibt Dir einen Fehlercode zurück, wenn es keine Zahl ist.

......

P.S.: Bitte wähle trotzdem einen besseren Titel

[toms]

Hi,

Das kannst du leicht mit der Val() Funktion überprüfen.
Diese veruscht einen String in einen Integer Wert umzuwandeln.
Schlägt dieser Versuch fehl, dann ist Code <> 0.

Delphi-Quellcode:

var
  I, Code: Integer;
begin
  Val('123a', I, Code);
  if Code = 0 then
    ShowMessage('String enthält nur Zahlen')
  else
    ShowMessage('String enthält Buchstaben');
end;

[Pseudemys Nelsoni]

danke leute ^^

ich werde thema mal umbenennen

arg, diese doofe begrenzung...ich komme nur bis "gibt es eine funktion die prüft ob ein string in ein int ver"...wandelt werden kann

was kürzeres fällt mir nich ein, hm

[Luckie]

Lass doch mal alles was keine Information beinhaltet im Titel weg.

Mein Vorschlag: "Ist String eine gültige Zahl?"

[Pseudemys Nelsoni]

danke lueckie


btw: ich denke ich schreib mir ne eigene function in dem iich jedes einzelne char prüfe.
bei val brauch ich ja noch ne extra integer variable...

[Luckie]

Nun ja. Wenn deine CPU sonst nichts zu tun hat, nur zu. Ich weiß nicht, wie es Borland macht, aber besser bekommst du es wohl kaum hin.

[Pseudemys Nelsoni]

soweit ich es verstanden habe, mach "Val" es so, das es den ersten parameter(der übergebene string) nach NUR zahlen prüft und wenn dem so ist wird code = 0 sein, ich verstehe nur nicht wieso 3 parameter gibt. Wozu muss ich noch nen integer an die function übergeben?

meine function hätte von den parametern eher so:

Delphi-Quellcode:

function IsInt(s: string): boolean;
var
  i: integer;
begin
  if s <> '' then
  begin
    result := true;
    for i := 0 to length(s) do
    begin
      if not (StrToInt(s[i]) in [0..9]) then
      result := false;
    end;
  end;
end;

ausgesehen. ich will ja nachher nur ca so prüfen:

if isint(string) then //

[Tom]

Zitat von Pseudemys Nelsoni:

ich verstehe nur nicht wieso 3 parameter gibt. Wozu muss ich noch nen integer an die function übergeben?

Schon die Delphi-Hilfe zu Val gelesen?

Zitat:

Delphi-Quellcode:

  if s <> '' then
  begin
    result := true;

Die Funktion bekommt in bestimmten Fällen kein Result zugewiesen ...

Zitat:

    for i := 0 to length(s) do

Zeichen eines Strings werden ab 1 gezählt.

Zitat:

      if not (StrToInt(s[i]) in [0..9]) then

Was denkst Du was passiert wenn s[i] nicht in 0 bis 9 ist?

[Pseudemys Nelsoni]

Zitat:

Schon die Delphi-Hilfe zu Val gelesen?

ja.

Zitat:

Zeichen eines Strings werden ab 1 gezählt.

vergessen.

Zitat:

Was denkst Du was passiert wenn s[i] nicht in 0 bis 9 ist?

dann wird: result := false;