AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Abfragen

Ein Thema von cell · begonnen am 15. Jul 2005 · letzter Beitrag vom 15. Jul 2005
Antwort Antwort
Seite 2 von 3     12 3   
Kompon Ente
(Gast)

n/a Beiträge
 
#11
  Alt 15. Jul 2005, 11:24
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!
  Mit Zitat antworten Zitat
cell

Registriert seit: 5. Jul 2005
Ort: Ebensee
171 Beiträge
 
Delphi 4 Standard
 
#12

Re: Abfragen

  Alt 15. Jul 2005, 11:26
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
  Mit Zitat antworten Zitat
Kompon Ente
(Gast)

n/a Beiträge
 
#13
  Alt 15. Jul 2005, 11:39
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?
  Mit Zitat antworten Zitat
Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.354 Beiträge
 
Delphi 11 Alexandria
 
#14

Re: Abfragen

  Alt 15. Jul 2005, 11:45
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}
Peter
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#15
  Alt 15. Jul 2005, 11:46
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.
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Kompon Ente
(Gast)

n/a Beiträge
 
#16
  Alt 15. Jul 2005, 11:47
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!
  Mit Zitat antworten Zitat
Benutzerbild von Treffnix
Treffnix

Registriert seit: 25. Jun 2003
Ort: AC
740 Beiträge
 
Delphi 7 Professional
 
#17
  Alt 15. Jul 2005, 11:48
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.
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#18

Re: Abfragen

  Alt 15. Jul 2005, 12:25
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" ?!?
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.354 Beiträge
 
Delphi 11 Alexandria
 
#19

Re: Abfragen

  Alt 15. Jul 2005, 12:34
Geht vielleicht ein einfaches TMaskEdit? Ich persönlich benutze die zwar nicht, aber für einen Anfänger doch eine praktikable Sache.
Peter
  Mit Zitat antworten Zitat
r2c2

Registriert seit: 9. Mai 2005
Ort: Nordbaden
925 Beiträge
 
#20

Re: Abfragen

  Alt 15. Jul 2005, 12:46
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
Kaum macht man's richtig, schon klappts!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:59 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