bin2dec

[Daniel B]

Hallo,

also mit folgendem Code, kann man in dem Edit nur noch 0, 1 und BackSpace drücken, somit kann man schonmal nichts falsches eingeben.

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0', '1', #8]) then
   Key := #0;
end;

Dann gibt es beim Edit im Objekt Inspector noch die Eigenschaft MaxLegth, das stellst Du auf 8. Damit man nur 8 Stellen maximal eingeben kann. Sonst ist es ja kein Byte mehr, sondern ein Word oder sonst was.

Delphi-Quellcode:

if Lenght(Edit1.Text) < 8 then
begin
  ShowMessage('Zuwenig Stellen!');
end
else
begin
  //hier kommt dann die umrechnung rein.
end;

Das bewirkt, das Dein Code nur ausgeführt wird, wenn im Edit 8 Stellen drin sind, falls dies nicht der Fall ist, also weniger, wird dann die eine Message ausgegeben.

Grüsse, Daniel