دخول

Agmcz · 22-05-2011, 10:57 PM

السلام عليكم
استفسار
أولا هل عملي صحيح هكدا

كود :
procedure TForm1.Button1Click(Sender: TObject);
var
i, ii : Integer;
begin
  for i := 0 to Form1.Memo1.Lines.Count -1 do
  begin
    for ii := 0 to Form1.Memo2.Lines.Count -1 do
    Test(Form1.Memo1.Lines.Strings[i], Form1.Memo2.Lines.Strings[ii]);
  end;
end;

أنا أود عند بدأ الحلقة i أخد Line 0 ودخول مباشرة في الحلقة ii وعدم الخروج منها حتى الإنتهاء
وبعدها الرجوع للحلقة i وإعادة دوران في ii مجددا ونفس الشيء حتى إنتهاء i أظن أن مثالي
واضح

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة