Edit genaue eingabe von Zahlen

[Jürgen Thomas]

Zitat von BAMatze:

Also du könntest dir eine eigene Komponente von TEdit ableiten ...

Auch in Delphi 5 gibt es bereits TMaskEdit, worauf auch himitsu hinweist. Warum soll man das nicht nutzen... Jürgen

[hoika]

Hallo,

um noch mal auf das genau 6 Zahlen zu kommen.

Vor dem Ausführen des Codes, der Edit1 neutzen soll

Delphi-Quellcode:

if Length(Edit1.Text)=6 then
begin
 // ok
end
else
begin
 // Fehler
end;

Heiko

[Dipl Phys Ernst Winter]

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.