Vielleicht sowas in der Art:
Delphi-Quellcode:
procedure TForm1.FillGrid(Grid: TStringGrid);
begin
Grid.Cell[0, 1] := 'Cell 1';
Grid.Cell[0, 2] := 'Cell 2';
Grid.Cell[0, 3] := 'Cell 3';
Grid.Cell[0, 4] := 'Cell 4';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FillGrid(StringGrid1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
FillGrid(StringGrid2);
end;
Die zu füllenden Werte könntest du theoretisch als zweiten Parameter in einem (zweidimensionalen) Array übergeben.