Zitat:
ich ... wollte wissen wie ich es machen kann das ... genau 6 zahlen eingegeben werden müssen!!
Sonst soll eine Fehlermeldung erscheinen!
Du benotigst hierfür überhaupt keinen Code!
Nimm eine TMaskEdit Komponente, setze im ObjektInpektor AutoSelect=false, eine Maske '000000;1;' und eine Vorgabe '000000' für den Text.
Dein Anwender kann jetzt die Vorgabe überschreiben. Solange er nicht auf den abwegigen Gedanken kommt, eine der Ziffern zu Löschen ist alles oK. Anderenfalls wird er aufgefordert nach Esc die Änderung rückgangig zu machen. Mit
Delphi-Quellcode:
procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=Vk_Delete) or (Key=Vk_Back) then Key:= 0
end;
kannst Du das Löschen ganz unterbinden und jegliche Fehlermeldung verhindern.