+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما هي المشكلة في برنامجي , لماذا لا يعمل ؟ (/showthread.php?tid=3325)
ما هي المشكلة في برنامجي , لماذا لا يعمل ؟ - Hidden PAin - 29-07-2011
حالت كتابة برنامج بسيط في دلفي يقوم بفحص مجموعة من البورتات
موجودة في مكون 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;ما هي المشكلة في برنامجي , لماذا لا يعمل ؟ - محمد عبد العزيز - 21-08-2011
السلام عليكم ورحمة الله
ان كان ما بعد الشرط 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;