edit soll nur zahle annehmen

**magic87**

hallo!
Ich habe ein Problem. Und zwar soll mein Editfeld nur Zahlen annehmen. Das ganze soll ich über ein Feld array machen und mit einer funktion in die ich eine Schleife einsetze. Mein bisheriger Quelltext sieht so aus:

markieren

Delphi-Quellcode:

			
const

  Ziffern : array[1..10] of char = ('0','1','2','3','4','5','6','7','8','9');

...

function IsOK(Key : char) : boolean;

...

function TForm1.IsOK(Key : char) : boolean;

begin

//Hier müsste eine Schleife die überprüft ob Zeichen in array oder nicht und wenn nicht ihr verbieten das Zeichen ins Editfeld zu schreiben

end;

Ich hoffe mir kann geholfen werden. Bin dankbar für jeden Tipp.
Liebe Grüße
Magic

**Luckie**

Och man, so langsam habe ich echt keine Lust mehr, hier zu helfen, wenn`die Leute anscheinend nicht bereit sind zu versuchen sich selber erstmal zu helfen. Gerade dieses Thema wird aktuell hier im Forum diskutiert und wurde auch schon in der Vergangenheit oft genug diskutiert. Warum gibt es eigentlich die Suche, wenn sie eh keiner benutzt?

**Schaedel**

Im Grunde hat Lucky recht...
Aber ich bin mal nicht so :-/

Also ... du gehst ins on Keypress.... oder on KeyDown von dem Edit... und läufst dann in der Schleife das Array durch...
Wenn das eingegebene im Array steht .... dann lass es zu ... wenn nicht schmeiß das eingegebene mit #0 wieder weg...

Den Quelltext erspar ich mir ... weil das nach Hausaufgabe aussieht...

Viel Spass

Schaedel
ps: bemüh die Hilfe...

**magic87**

ich hab die Suche schon benutzt! Tut mir leid.. aber ich habe schon versucht mir selber dadurch zu helfen. Aber ich habe nichts dazu gefunden.. jedenfalls nicht wie ich es gebrauchen könnte. Naja..hoffe trotzdem mir kann dazu jemand weiterhelfen.

**mkinzler**

Ich schmeiß mal wieder den TMaskEdit in die Runde.

**Schaedel**

Ich hab dir die Lösung oben angegeben ...
Schreiben werde ich dir den Quelltext nicht

Ist ja ne Hausaufgabe und bei solchen Dingen soll man ja was lernen

mkinzler :
Na ja ... kann er auch machen ... aber das käme ja nicht der AUfgabenstellung nach

**DGL-luke**

edit nur zahlen

da is eigentlich alles was man braucht...

**Luckie**

Ich weiß ja nicht, wie du gesucht hast, aber wenn ich das eingebe: Hier im Forum suchen

edit nur zahlen, dann find eich zum Beispiel das:

http://www.delphipraxis.net/internal...ht=edit+zahlen oder das

http://www.delphipraxis.net/internal...ht=edit+zahlen

Und wenn man die Suche noch etwas ausweitet, dann findet man bestimmt noch mehr Beiträge.

**robinWie**

man könnte auch vor abruf des Textes aus dem Edit alle Buchstaben entfernen. Ist aber nicht sehr elegant

markieren

Delphi-Quellcode:

			var

 S: string;

 i: integer;

begin

S := Edit1.Text;

for i := 1 to length(Edit1.Text) do

 if not (S[i]  = ['0'..'9'] then

   Delete(S, 1, 1);

Edit1.Text := S;

So müsste das irgendwie gehen. Habs aber nicht getestet

**faux**

@robinWie:
Bei deiner if-Abfrage darfst du nicht = schreiben, denn ein String kann nicht mit einer Liste ident sein, sondern du musst das Schlüsselwort in benutzen.

Grüße
Faux

edit soll nur zahle annehmen

edit soll nur zahle annehmen

Re: edit soll nur zahle annehmen

Re: edit soll nur zahle annehmen

Re: edit soll nur zahle annehmen

Re: edit soll nur zahle annehmen

Re: edit soll nur zahle annehmen

Re: edit soll nur zahle annehmen

Re: edit soll nur zahle annehmen

Re: edit soll nur zahle annehmen

Re: edit soll nur zahle annehmen

Forumregeln

magic87 Registriert seit: 15. Aug 2006 10 Beiträge	#4 Re: edit soll nur zahle annehmen 24. Aug 2006, 15:55 ich hab die Suche schon benutzt! Tut mir leid.. aber ich habe schon versucht mir selber dadurch zu helfen. Aber ich habe nichts dazu gefunden.. jedenfalls nicht wie ich es gebrauchen könnte. Naja..hoffe trotzdem mir kann dazu jemand weiterhelfen.
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#5 Re: edit soll nur zahle annehmen 24. Aug 2006, 15:56 Ich schmeiß mal wieder den TMaskEdit in die Runde. Markus Kinzler
	Zitat

Schaedel Registriert seit: 5. Jan 2006 Ort: Saarland 174 Beiträge Delphi 2007 Professional	#6 Re: edit soll nur zahle annehmen 24. Aug 2006, 15:57 Ich hab dir die Lösung oben angegeben ... Schreiben werde ich dir den Quelltext nicht Ist ja ne Hausaufgabe und bei solchen Dingen soll man ja was lernen mkinzler : Na ja ... kann er auch machen ... aber das käme ja nicht der AUfgabenstellung nach Michael S.
	Zitat

DGL-luke Registriert seit: 1. Apr 2005 Ort: Bad Tölz 4.149 Beiträge Delphi 2006 Professional	#7 Re: edit soll nur zahle annehmen 24. Aug 2006, 16:00 edit nur zahlen da is eigentlich alles was man braucht... Lukas Erlacher Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen. Gotteskrieger gesucht! For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
	Zitat

faux Registriert seit: 18. Apr 2004 Ort: Linz 2.044 Beiträge Turbo Delphi für Win32	#10 Re: edit soll nur zahle annehmen 24. Aug 2006, 16:56 @robinWie: Bei deiner if-Abfrage darfst du nicht = schreiben, denn ein String kann nicht mit einer Liste ident sein, sondern du musst das Schlüsselwort in benutzen. Grüße Faux Faux Manuel Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß. GoTrillian
	Zitat