عجزت أعرف متغير ؟!

الكود الذي الستخدمته صحيح بدون علامة المساواة ، فيصبح الكود كالتالي :

var x:Integer;

عفوا انا كنت مستخدم نفس كودك

ايضا ما زال يعطي إشارة خطأ ؟

procedure TForm1.Button1Click(Sender: TObject);
begin
var x:Integer;
end;

end.

تفضل الكود بعد التصحيح :

procedure TForm1.Button1Click(Sender: TObject);
var x:Integer;
begin

end;
end.

:lol: :lol:

procedure TForm1.Button1Click(Sender: TObject);
var x:Integer;
begin
end;

عموما اخي المتميز انا ما نسيتك انت عارف مشاغل (بعدما صرت مشرف ما حد قدي )

امزح ان شاء لن تشرق شمس الغد الا و طلبك موجود

var
  Form1: TForm1;
  I:Integer;
implementation

{$R *.dfm}

طيب لو اردت تعريف متغير ثم طباعته ؟

var x:Integer;
x:=5;
showmessage(x);

يظهر خطأ؟

يجب تجويل الـ X من اعداد الى محارف كي تتم عملية اظهار الرساله

showmessage(inttostr(x));

السلام عليكم

عودة مرة أخرى حاولت اعرف متغير فظهرت رسالة خطأ ؟؟! مع اني نسخت الكود الموجود هنا بالمنتدى ومع ذلك يقول خطأ ؟؟

جربوا الملف المرفق وبينوا لي سبب الخطأ ؟

متغير.zip

السلام عليكم ،،،

لقد نسخت الكود الذي أنت واضعه ولم تنسخ كود المبرمج أحمد

كود المبرمج أحمد بهذا الشكل

procedure TForm1.Button1Click(Sender: TObject);
var X : Integer; // لا حظ الفرق
begin

end;

end.

وكود بهذا الشكل

procedure TForm1.Button1Click(Sender: TObject);
begin
var
X : Integer;
end;

الإعلان عن المتغير يكون قبل ال begin وليس بعدهــــــــا ،،،

شكرا ابا محمد :)