کمک فوری خواهش می کنم

[The.Ghost]

سلام من با دلفی 7 یک برنامه خیلی ساده نوشتم.
حال من این برنامه را با دلفی 2009 باز می کنم خطا های زیر را میدهد.
لطفا اگر میشه کمک کنید ممنون میشم.
حتی Pchar هم استفاده کردم ولی کار نمی کند.
و اگر یک مثال هم بزنید ممنون میشم.
بعد لطفا بگید که چرا برنامه در دلفی 7 کار می کند ولی در دلفی 2009 کار نمی کند و خطا میدهد.

کد:

E2010 Incompatible types: 'Char' and 'AnsiChar'
E2010 Incompatible types: 'Char' and 'AnsiChar'
E2010 Incompatible types: 'Array' and 'PAnsiChar'
Incompatible types: 'Char' and 'AnsiChar'

[lord_viper]

ساختارها تو 2009 کمی متفاوت شده
این به خاطر اینه که شما چیزیو میبایستی ansichar تعریف میکردی و char تعریف کردی یا یک مقدار char رو به یک تابع که مقدار ansichar قبول میکنه پاس دادین
کد رو بزارین تا تصحیح بشه
اینها به خاطر اشتباه در انتخاب نوع متغییر هست

[The.Ghost]

این کد نیست یک کامپوننت است که می خواهم در دلفی 2009 نصب کنم که نمیشه، ممنون از لطفی که کردی.

ولی باز یک سئوال دیگر برام پیش آمد است میشه بگی که چرا دستور زیر خروجی اش مساوی 18 می شود و علامت $ به چه معنی است، ممنون

راستی من چرا نمی توانم در دلفی متغییر Static تعریف کنم هر کاری کردم نشود. لطفا در این مورد هم اگر من را راهنمایی کنی بی نهایت ممنون میشم. دستت درد نکند Lord

کد:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
p : Integer;
begin
P:=$12;
ShowMessage(IntToStr(P)); // = 18
end;

[lord_viper]

$ یعنی مقدار هگز در نظر بگیر

[The.Ghost]

سلام ممنون.
من تعریف متغیر استاتیک را فهمیدم و این جا کد اش را می نویسم.
لطفا اگر جور دیگری هم میشه بگویید.

کد:

procedure TForm1.BitBtn3Click(Sender: TObject);
const
{$J+}
P:Integer=0;
{$J-}
begin
P:=P+10;
Edit1.Text:=IntToStr(P);
end;

[lord_viper]

نوشتن const کافی هست و شما برای تعریف const نمیتونی از : ایتفاده کنی باید از = استفاده کنی

کد:

procedure TForm1.Button1Click(Sender: TObject);
const
  p=10;
var
  i:Integer;
begin
i:=0;
i:=i+p;
ShowMessage(IntToStr(i));
end;

[aydin_key]

سلام عزیزم
بجای ansichar از char
استفاده کن