25-04-2016, 05:47 AM
السلام عليكم
لنفترض أنه لدينا Stringgrid, بالمواصفات التالية:
ColCount=2
FixedCols=0
FixedRows=0
RowCount=3
ولدينا في تسجيلاته على الترتيب:
P1, 3
P2, 2
P3, 1
يكون كود الزر على الشكل التالي:
لنفترض أنه لدينا Stringgrid, بالمواصفات التالية:
ColCount=2
FixedCols=0
FixedRows=0
RowCount=3
ولدينا في تسجيلاته على الترتيب:
P1, 3
P2, 2
P3, 1
يكون كود الزر على الشكل التالي:
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
j: Integer;
begin
Memo1.Clear;
for I := 0 to StringGrid1.RowCount - 1 do
begin
for j := 0 to strtoint(StringGrid1.Cells[1, I]) - 1 do
Memo1.Lines[0] := Memo1.Lines[0] + StringGrid1.Cells[0, I];
end;
end;