Falsche Eingabe Ziffern und nicht Buchstaben!!!

1ntrud0r

so das hab ich im andren post gepostet und trifft hier auch zu :

void SetIntEdit(TEdit* plEdit) 
{ 
// ... Nur Ganzzahlige Zahlen erlaubt 
SetWindowLong(plEdit->Handle, GWL_STYLE, GetWindowLong(plEdit->Handle, GWL_STYLE) | ES_NUMBER); 
}

Peter

Lest doch einfach mal in der FAQ nach und erweitert die entsprechende Routine um das Komma oder den Punkt und schon ist alles wunderbar

HEy ich habe mir nen Tee reingezogen und ruhig weiter ausprobiert....

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if((Key<'0' || Key>'9') && Key!=8)
    Key=0;

}

eingefügt und siehe da der benutzer ist nicht mehr im stande zahlen einzugeben!!!!
Sauber; aber und jetzt der daraus resultierende Fehler. ich muss mit Komma stellen arbeiten !!! Wie mach ich das ?

Hey Peter deinen Eintrag habe ich eben noch nicht gelesen gehabt, das wert der richtige weg sein .... hmmm

junix

Lies die verdammten Posts, oder ich mach hier zu wegen Merkbefreitheit! Wurde alles besprochen, genau so wie in dem auf der ersten Seite erwähnten Thread.

-junix

Hey ich plane irgendwie diese simple IF anweisung nicht...

if((Key<'0' || Key>'9') && Key!=8)
=bedeutet für mich WENN Schlüssel kleiner als die ZAhl oder Wer 0 ist ODER Schlüssel Größßer als 0 ist (das ist ja klar) aber was soll UND Schlüssel UNGLEICH 8 hä ?

Peter

8 == Rückwertsleerzeichen sprich Backspace

junix

Key bedeutet im englischen Sprachgebrauch im Allgemeinen auch "Taste" (vgl. Keyboard)

Ausserdem wäre es wohl auch sinnvoll, wenn du dir darüber gedanken machen würdest, woher "Key" überhaupt kommt? Eventuell findest du da wohl was in der Doku zum verwendeten Event? Wer weiss?

-junix

Alles klar ....
das heist die IF anweisung ist klar ... demnach also nur zahlen von 0 - 9 möglich
Gudie demnach ist auch kein Komma Möglich mag mir eventuel das jemand sagen ?

ICh weiß ich habe nee lange LEitung ....
aber danach bin ich ferig mit meinem Barcode Berechnungsprogramm...

Hey ihr vielen netten LEute ich möchte nicht das ich wegen meinen Fragen schlechte Kritik für euer Forum bekommt. schmeißt meine unqualifizierten Fragen ruhig raus. Easy hauptsache das Forum bleibt generell am start!!!

Peter

Ich will ja nicht mäkeln, aber wenn Du ein Barcodeberechnungsprog hingekriegt hast wirst Du wohl auch dieses if so hingebogen bekommen, daß auch ein Komma eingebbar ist

Naja irgendwie ist die luft raus...sitz da auch schon ein paar tage dran!
Peter, jetzt mal ehrlich du kannst das bestimmt aus dem FF , oder nicht ?

Peter

Du hast doch folgenden Code aus der FAQ in Dein Prog eingebaut (siehe weiter oben) oder nicht ?

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) 
{ 
   if((Key<'0' || Key>'9') && Key!=8) 
      Key=0; 
}

So, was macht der ?
Wenn die gedrückte Taste kleiner ist als ne '0' oder größer ist als ne '9' (sprich nicht die Ziffern 0-9 beinhaltet) und auch nicht Backspace ist, dann ignoriere diese Taste (Key=0).
Wie könnte man es denn jetzt wohl anstellen, daß auch das Komma nicht ignoriert wird
Übrigens, diese Methode:

LONG dwStyle = GetWindowLong( Edit1->Handle, GWL_STYLE); 
SetWindowLong( Edit1->Handle, GWL_STYLE, dwStyle | ES_NUMBER );

braucht man nur ein einziges Mal aufrufen. Danach akzeptiert das entsprechende TEdit von ganz alleine nur noch numerische Eingaben

Hey, ja soweit so gut habe ich es ausprobiert, da ich das Komma ja noch verwenden möchte kommt für mich nur der erste Arbeitsschritt , oder ?

Mein Code:

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if((Key<'0' || Key>'9' || Key ==',') && Key!=8)
      Key=0;

}

klapt nur leider nicht ?

Jester2000

mensch denk doch mal nach!!!

if((Key<'0' || Key>'9') && Key!=8 && Key !=',') Key=0;

Ich habe noch nie gesehen, daß jemand die Beiträge von junix so hartnäckig ignoriert.
Das grenzt schon fast an Blasphemie

Was häst Du von folgendem:

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)  
{  
   if((Key<'0' || Key>'9') && Key!=8)  
     if(Key == ',')
     {
       // hier muß was passieren wenn Komma schon bereits eingegeben wurde
       // kleine Denksportaufgabe für Chiller  
     }
     else 
      Key=0;  
}

Jester2000

das geht aber noch einfacher:

if((Key<'0' || Key>'9') && Key!=8 && Edit1->Text.Pos(',')!=0) Key=0;

auch wenn ich Chiller jetzt nicht zum Denken gezwungen hab

Der Chiller hat es geschafft, lange hats gedauert!

{   
   if((Key<'0' || Key>'9') && Key!=8)
     if(Key == ',')
     {
       // hier muß was passierte was
       Key=',';
       // Denksportaufgabe vom Chiller...gelöst :) 
     }
     else
      Key=0;
}

Leute Danke, Junix sorry!
Ich wünsche euch allen viel spaß die Tage...
Melde mich bei euch werde mich registrieren
und euch nicht mehr fern bleiben

MfG Der Chiller am 1 Oktober 2003

Jester2000

schaltest du eigentlich dein hirn beim programmieren aus?
was ist denn dass fürn code??

if(Key==',') { Key=','; } // sinnlos hoch 3

was isn, wenn jetzt jmd zwei kommas eintippt???

junix

Es scheint ein guter Zeitpunkt zu sein, hier mal für 1-2h zuzumachen, damit Chiller über das geschriebene nachdenken kann und nicht in Versuchung kommt einfach wieder zu posten, wenn er etwas nicht gliech begreift.

Ich mach dann später wieder auf...

-junix