22-05-2011, 10:57 PM
السلام عليكم
استفسار
أولا هل عملي صحيح هكدا
أنا أود عند بدأ الحلقة i أخد Line 0 ودخول مباشرة في الحلقة ii وعدم الخروج منها حتى الإنتهاء
وبعدها الرجوع للحلقة i وإعادة دوران في ii مجددا ونفس الشيء حتى إنتهاء i أظن أن مثالي
واضح
استفسار
أولا هل عملي صحيح هكدا
كود :
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 وإعادة دوران في ii مجددا ونفس الشيء حتى إنتهاء i أظن أن مثالي
واضح