Delphi stringgrid Sample (Using for loop)
1. Open new Delphi VCL application.
2. Drag and drop stringgrid component to the form.
3. Drag and drop Button component to the form.
4. Copy and past below code to the button "click" property.
procedure TForm1.Button1Click(Sender: TObject);
var i, ix :integer;
begin
StringGrid1.ColCount:=10;
StringGrid1.RowCount:=10;
for I := 0 to 10 do
for Ix := 0 to 10 do
with StringGrid1 do
begin
Cells[i,ix] := 'Col - ' + inttostr(i) + ', Row - ' + inttostr(ix);
ColWidths[i-1]:=100;
end;
end;
5. Run the application.
2. Drag and drop stringgrid component to the form.
3. Drag and drop Button component to the form.
4. Copy and past below code to the button "click" property.
procedure TForm1.Button1Click(Sender: TObject);
var i, ix :integer;
begin
StringGrid1.ColCount:=10;
StringGrid1.RowCount:=10;
for I := 0 to 10 do
for Ix := 0 to 10 do
with StringGrid1 do
begin
Cells[i,ix] := 'Col - ' + inttostr(i) + ', Row - ' + inttostr(ix);
ColWidths[i-1]:=100;
end;
end;
5. Run the application.
Comments
Post a Comment