Ich will einen Taschenrechner programmieren
Dabei muß ich auch ein Komma eingeben. Um mehrere Kommas zu vermeiden teste ich den Eingabestring für die Zahl auf ein bereits vorhandenes Komma.
Ich will also den String im Eingabefeld mittels einer for next Schleife testen. Dazu brauche ich die Textlänge die ich aus eingabe.text.Length holen möchte.
Beim compilieren kommt dann der Fehler:"Illegal qualifier".
eingabe ist TEdit.
Wo ist der Wurm?
Vielleicht gibt es auch eine bessere lösung für den Kommatest?
Code: Alles auswählen
procedure TForm1.Button_KommaClick(Sender: TObject);
var a,textlaenge:integer;
begin
textlaenge := eingabe.text.Length;
//Kommatest
{for a ;= 0 to textlaenge do
if eingabe,text(a) = ',' then
begin
messagebox('es darf kein 2.Komma verwendet werden');
exit;
end
else
eingabe.Text:=eingabe.text+','; }
modustest;
refresh;
end;