[تمرين] ما الخطأ في هذا الكود

[DAMAX2010]

[FONT="Comic Sans MS"][COLOR="Purple"]السلام عليكم
لتنشيط المنتدى شوية بمسابقات و تمارين مفيدة
ما الأخطاء في الكود

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
go : Integer;
begin
go: 'not found';
IEHTTP1.ExecuteURL(Edit1.Text);
if IdHTTP1.Response.ResponseCode =go then
ShowMessage('File Exist') else
ShowMessage('File Do Not Exist');
end; 


بالتوفيق للجميع[/COLOR]

[onexite]

الخطا واضح انت عرفت go على انه integer وبعد ذلك
وضعت فيه قيمة من نوع string

[DAMAX2010]

الخطا واضح انت عرفت go على انه integer وبعد ذلك
وضعت فيه قيمة من نوع string

صح الخطأ الأول

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
go : String;
begin
go: 'not found';
IEHTTP1.ExecuteURL(Edit1.Text);
if IdHTTP1.Response.ResponseCode =go then
ShowMessage('File Exist') else
ShowMessage('File Do Not Exist');
end; 


و الان الخطأ الثاني ^^

[لؤي]

و الان الخطأ الثاني ^^

عكس شرط IF

PHP كود :

var
go : String;
begin
go:= 'not found';
IEHTTP1.ExecuteURL(Edit1.Text);
if IdHTTP1.Response.ResponseCode <> go then
ShowMessage('File Exist') else
ShowMessage('File Do Not Exist');
end; 


[virtual]

كود :

uses windows; type t_rec = record public procedure ShowMsg(msg : string); procedure init(); msg : string; end; { t_rec } procedure t_rec.init; begin msg := 'Record string'; end; procedure t_rec.ShowMsg(msg: string); begin MessageBox(0,pchar(msg),'h',0); end; var test : t_rec; begin test.init(); test.ShowMsg('Argument String'); end.

بدون تجريب الكود الاجراء showMsg سيضهر Argument String او Record String

[chamsderreche]

كتبت g: و نسيت = و يفترض أن تكتب g:=