Abfragen

[Kompon Ente]

Den Wert, der im Editfeld steht umwandeln und überprüfen, welche Zahl es in der ASCII-Tabelle ist -> dementsprechend handeln!

cell, schau mal in die DH - dort findest Du alles über Chr und Ord!

[cell]

ich will nur schauen ob es 1,2,3,4,5,6,7,8,9,0 is und wenn ja dann soll er es in die datenbank schreiben, wenn nein dann soll er eine fehelermeldung heruasgeben

[Kompon Ente]

Was hälst Du

Delphi-Quellcode:

if Ord(Edit1.Text[1]) in [48..57] then // Zahlen im Editfeld?
  {schreibe die Zahlen in die DB}

davon?

[Jasocul]

Geht nicht.
Du musst Inhalt des Edit-Feldes vorher einer String-Variablen zuweisen, weil du aif die Text-Eigenschaft nicht generell wie auf ein String zugreifen kannst. Dies ist einer der Fälle.

Delphi-Quellcode:

var
  s : String;
...
s := Edit1.Text;
if Ord(s[1]) in [48..57] then // Zahlen im Editfeld?
  {schreibe die Zahlen in die DB}

[Sharky]

Ich glaube ich gebe es auf.

Es wurden drei Vorschläge gemacht wie man das ganze richtig lösst. Aber anscheinend scheint cell sich für Lösungsvorschläge nicht zu interessieren.

[Kompon Ente]

Lass ihn doch, vllt. kennt er sich noch nicht so gut aus.

Wir haben alle mal klein angefangen..

Vor 4 Monaten wusste ich nicht mal, was 'ne Prozedur ist und jetzt bin ich bald mit meinem Game fertig!

[Treffnix]

Zitat von Kompon Ente:

Was hälst Du

Delphi-Quellcode:

if Ord(Edit1.Text[1]) in [48..57] then // Zahlen im Editfeld?
  {schreibe die Zahlen in die DB}

davon?

Ja suuuuper Idee, oder du vergleichst es so Ord(Edit1.Text[1]) in [$30..$39] damits noch kryptischer wird. Weil wie von Sharky vorgeschlagen die Chars zu vergleichen wäre ja viel zu übersichtlich.

Benutz die Hilfe such wie vorgeschlagen nach tryinttostr und dann benutz deinen Kopf.

[turboPASCAL]

Hier gibt es eine Numeric Edit Komponente http://www.delphiforfun.org/...

oder:

Delphi-Quellcode:

// als Decimal-Separator wird nur "." akzeptiert
function TestOfNumeric(S: String) : Boolean;
var
  r: Real;
  c: Integer;
begin
  val(s, r, c);
  Result := Boolean(c = 0);
end;

// if not TestOfNumeric(Edit1.Text) then Error...

das gibt es ja noch die Möglichkeit die Keys zu testen die gedrückt werden:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ...
  if Key in ['0'..'9', '.', ',' ] then ok else NichtOk; ...
  ...
end;

//Edit: PS.: Dein Titel ist ein bissel dünn "Abfragen" ?!?

[Jasocul]

Geht vielleicht ein einfaches TMaskEdit? Ich persönlich benutze die zwar nicht, aber für einen Anfänger doch eine praktikable Sache.

[r2c2]

Ich glaube wir sollten das mal zusammenfassen:

1.) n MaskEdit benutzen(Jasocul)

2.) nicht Zahl-Zeichen abfangen(turboPASCAL) Das würde ich dann aber noch etwas verbessern:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  ... 
  if not (Key in ['0'..'9', '.', ',', #8 ]) then 
  begin
    Beep;
    Key := #0;
  end;
  ... 
end;

3.)TryStrToInt(marabu)

4.) Selbst ne Funktion schreiben.(wurde von mehreren vorgeschlagen)
Das hat aber den Nachtteil, dass man so auch sowas berücksichtigen muss:

Code:

,,99,,,,,,2....5,9.,5,.

Is das ne Zahl, wenn ja, welche?

Ich hoffe ich hab niemanden vergessen. Möglichkeiten sollten das jetzt auch genug sein. Ich persönlich würde Version 2 oder 3 nehmen.

mfg

Christian