So sieht es bei mir im Code aus:
Delphi-Quellcode:
procedure TForm1.Button15Click(Sender: TObject);
var
h:double;
begin
if TryStrToFloat(edit1.Text,h) then
edit1.Text:=edit1.text+','
else
begin
showmessage('Sie haben schon ein Kommata');
edit1.Text:=' ';
end;
end;
Nun zu meinem Problem. Es arbeitet alles einwandfrei, aber erst ab dem 3. Kommata
Beispiel:
Der User kann eingeben... 2,2,3
, erst beim rotem Kommata erscheint die Fehlermeldung. Die Fehlermeldung soll aber schon beim 2. Komma erscheinen
