آقای تاجیک از این کد هم اسفاده کردم همون مشکل رو داشت.
لطف میکنید بگید این کد با کدی که من نوشته بودم چه فرقی داره ؟؟؟؟؟؟؟؟؟؟
به نظرم هر دوتاشون یکی بود.
کجاشون یکی بود ؟!
این کد شما :
var
i, j : Integer;
begin
for i := L to T do
for j := R to B do
StringGrid1.Cells[i,j] := '1';
end;
تو حلقتون از چب ( L ) به بالا رفتید ( T ) و از راست ( R ) به پائین ( B ) ؛ حالا به نظرتون حلقتون چند بار باید اجرا بشه ؟! کدوم حلقه سطرها رو پیمایش میکنه و کدوم ستونها رو ؟!
این هم کد من :
var
i, j: Integer;
begin
for i := L to R do
for j := T to B do
StringGrid1.Cells[i, j] := '1';
end;
از چب به راست برای ستون ها و از بالا به پائین برای سطرها !
نمونه ضمیمه شده رو ببینید .
موفق باشید .