Subversion Repositories spacemission

Rev

Rev 1 | Rev 24 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 15
Line 69... Line 69...
69 
  groesseedt.Text := inttostr(groesse.position);
 69 
  groesseedt.Text := inttostr(groesse.position);
70 
end;
 70 
end;
71 
 
 71 
 
72 
procedure TLevelForm.GroesseEdtKeyPress(Sender: TObject; var Key: Char);
 72 
procedure TLevelForm.GroesseEdtKeyPress(Sender: TObject; var Key: Char);
73 
begin
 73 
begin
- 
 
 74 
  {$IFDEF UNICODE}
- 
 
 75 
  if not CharInSet(Key, [#13, #08, '0'..'9']) then
- 
 
 76 
  {$ELSE}
74 
  if not (Key in [#13, #08, '0'..'9']) then
 77 
  if not (Key in [#13, #08, '0'..'9']) then
- 
 
 78 
  {$ENDIF}
75 
    Key := #0;
 79 
    Key := #0;
76 
end;
 80 
end;
77 
 
 81 
 
78 
procedure TLevelForm.GroesseEdtChange(Sender: TObject);
 82 
procedure TLevelForm.GroesseEdtChange(Sender: TObject);
79 
begin
 83 
begin