Zitat von
rosinchen4:
Mit masken aheb ich gefunden abe rich möchte ja zahlen unn , und backspace etc ulasen nur kein buchstaben das finde ich vordefiniert nicht nur telefonumer etc udn weis nicht wie selebr definiern.
kann eienr ein beispiel posten dafür bitte.
Danke im Voraus
Okay probiere transparent.
Hier ma ne Funktion die Überprüft, ob dein Text nur aus Zahlen besteht...
Delphi-Quellcode:
function NurZahlen(Uebergabe : string) : boolean;
VAR i : integer;
begin
i := 1;
Result := True;
while (i <= Length(Uebergabe)) AND (Result = True) do
begin
IF (Uebergabe[i] IN ['0'..'9']) = False THEN
begin
ShowMessage('Fehler: Zeichen "' + Uebergabe[i] + '" an Stelle ' + IntToStr(i));
Result := False;
end;
i := i + 1;
end;
end;
Per Forensuche findest du auch das hier, was genau das bringt, was du willst - es werden nur Zahlen und Backspace im Edit zugelassen (#46 ggf. entfernen):
Zitat von
PierreB:
Das geht einfach mit nem ganz normalen TEdit. Im
OnKeyPress prüfst du einfach nur ob die Taste eine von dir gewünschte ist, wenn nicht dann wird sie ignoriert.
Hier hast du mal den Code, nur Zahlen & der "." werden akzeptiert:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in[#08,#46,#48..#57]) then key:=#0;
end;
Noch kurz zur Erklärung: #46 ist der Punkt, #48 bis #57 sind die Ziffern von 0 bis 9.
Die jeweiligen # - Werte kannst du z.B. aus jeder beliebigen
ASCII-Code Tabelle ablesen.
