Edit-Feld auf gewisse Werte hin überprüfen

[MarquiseDeSade]

Hallo :dancer:

Ich als Anfänger stoße wieder einmal an meine Grenzen :P Folgendes Problem:

Ich mache immer noch an meinem Taschenrechner rum. Beim ausprobieren habe ich nun folgendes entdeckt. Der Benutzer kann über den Button "Komma" ein Komma in das Editfeld klicken, auch wenn dieses noch keine Zahlen enthält.

Wie kann ich überprüfen, ob ein Edit schon einen Eintrag,bzw schon ein Komma hat? Momentan hab ich ja nur abgefangen, dass er nicht mehrere Kommata eingeben kann und zwar so:

Delphi-Quellcode:

procedure TForm1.Button_kommaClick(Sender: TObject);

begin

  if (KommaCount < 1) then
    begin
    Edit1.Text :=  Edit1.Text+',';
    inc(KommaCount); 
    end
  else 
    begin
      ShowMessage('Wieviel Kommata willst du denn noch eingeben?');
    end;
end;

Denn ein weiteres Problem besteht darin, wenn ich z.b. solch eine Rechnung ausführe:

1,1 + 4 > denn hier wir "KommaCount" durch den Plus-Button auf 0 gesetzt und ich könnte dann bei dem Ergebnis von 5,1 nochmalig ein Komma setzten.




Gruß Tobias :tongue:

[jfheins]

Mach noch eine abfrage, wenn Edit.Text leer ist, und Komma gedrückt wird, soll er nicht ',' sondern '0,' hinzufügen/setzen ;)

[MarquiseDeSade]

Zitat:

Zitat von jfheins

Mach noch eine abfrage, wenn Edit.Text leer ist, und Komma gedrückt wird, soll er nicht ',' sondern '0,' hinzufügen/setzen ;)

Das Problem, was sich mir stellt, ist, wie ich diese Abfrage gestalten muss.

Etwa so ?

Delphi-Quellcode:

If edit1.text='' then ...

[3_of_8]

Zum Beispiel so, ja.

Und ob schon ein Komma drin ist, erfährst du mit Pos(',', Edit1.Text)>0.

(Lustigen Namen hast du dir ausgesucht. :mrgreen: )