التحكم في كتابة الحروف عن الحدث Edit1KeyPress يعمل مع دلفي 7 ولا يعمل مع 2010 ؟؟

[TF6M]

- نفذ هذا الكود في الـ Delphi 7 & Delphi 2010 و لاحظ الفرق :

PHP كود :

{$IF CompilerVersion >= 20}
 Const
  Tmp = '65536 character';
{$Else}
Const
  Tmp= '256 character';
{$IFEnd}

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessageFmt('Size Of Char Type : %d Byte, ' + Tmp
      ,[SizeOf(Char)]);
end; 


بالتوفيق,,