delphi4arab منتديات دلفي للعرب

حالت كتابة برنامج بسيط في دلفي يقوم بفحص مجموعة من البورتات
موجودة في مكون richedit ..
لكن لم يعمل
شوفو الكود و خبروني عن الخطأ بليز

كود :
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer ;
begin
TcpClient1.RemoteHost := Edit1.Text;
 for i:=0 to RichEdit2.lines.count do
      TcpClient1.RemotePort := RichEdit2.lines.Strings [i];
      StaticText1.caption := 'Checking '+ Edit1.Text +' on '+ RichEdit2.lines.Strings [i];
        if TcpClient1.Connect then
        RichEdit1.lines.Add(Edit1.Text + ' : ' + RichEdit2.lines.Strings [i] + ' / Open');
 end;

السلام عليكم ورحمة الله

ان كان ما بعد الشرط IF أكثر من أمر ضعه بين Begin و End
الكود بعد التصحيح (تم اضافة ما هو احمر)

كود :
var
i : integer ;
begin
TcpClient1.RemoteHost := Edit1.Text;
 for i:=0 to RichEdit2.lines.count do [color=Red]Begin[/color]
      TcpClient1.RemotePort := RichEdit2.lines.Strings [i];
      StaticText1.caption := 'Checking '+ Edit1.Text +' on '+ RichEdit2.lines.Strings [i];
        if TcpClient1.Connect then
        RichEdit1.lines.Add(Edit1.Text + ' : ' + RichEdit2.lines.Strings [i] + ' / Open');
[color=red]end;[/color]
End;

ملاحظة: مستقبلا اختر عنوان مناسب للموضوع!

Hidden PAin

محمد عبد العزيز