mein erster Taschenrechner im Disney Style

[St.Pauli]

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.