EditFeld nur bestimmte Werte zulassen

[rwachtel]

Zitat:

Zitat von leddl

[...] Den Code hast du doch im Prinzip schon von Klaus01 bekommen.

...und genau das ist (mal wieder) das Problem...

[netmario]

Also, ich bin ein totaler Anfänger von daher Entschuldigung wenn ich nicht alles hinbekomme, ich habe geschrieben, dass ich es versucht habe es aber nicht geklappt hat. Ich habe es bisher so gemacht, vllt ein bisschen unproffesionell aber ich bin ja noch ein Anfänger.

Delphi-Quellcode:

procedure TForm1.KommaClick(Sender: TObject);
begin
  if Kom=0 then
  sEdit1.Text:=sEdit1.Text+',';
  Kom:=1;
end;

Ich hatte es bisher mit einer Variablen überprüfen lassen, allerdings kann ich jetzt einmal mit der Tastatur ein Komma setzen und einmal per Mausklick, das will ich verhindern.

[DeddyH]

Du musst doch nur in beiden Ereignissen Deine Variable prüfen.

[netmario]

Das hat wieso auch immer nicht funktioniert.

Delphi-Quellcode:

  if (key = ',') and (pos(',',(sender as TEdit).text) >0) and (Kom=0) then
    key := #0;;

[mkinzler]

es müsste (kom>0) heissen

[leddl]

Zitat:

Zitat von netmario

Das hat wieso auch immer nicht funktioniert.

Delphi-Quellcode:

  if (key = ',') and (pos(',',(sender as TEdit).text) >0) and (Kom=0) then
    key := #0;;

Der Teil funktioniert so ja auch nur im Ereignis, für das Klaus01 dir den Quelltext gegeben hat ;) Du solltest schon versuchen, das für die Verwendung im Button zu adaptieren.

[netmario]

DeddyH meinte ich soll es so versuchen. >0 hat auch nichts gebracht. Ich fände es sehr nett von euch wenn ihr mir wenigstens einmal zeigen würdet wie man dass ohne Variable abprüft ob schon ein Komma vorhanden ist und dass man dann keins mehr hinzufügen kann. Vielen Dank.

[DeddyH]

Ich hab gemeint, dass Du Deine Variable in beiden Ereignissen prüfen bzw. setzen sollst. Pseudocode:

Code:

Wenn Zeichen ','
  Wenn Variable > 0
    Zeichen verwerfen
  Sonst
    Zeichen setzen
    Variable auf 1 setzen

[netmario]

Das hatte ich auch ausprobiert, da gabs soweit ich mich erinnern konnte aber Probleme, jetzt scheint es aber zu funktionieren, vielen Dank.

[DeddyH]

Im Zweifelsfall hilft bei logischen Problemen immer ein PAP bzw. ein Struktogramm.