Mehrere StringGrids über Schleife befüllen?

[Stecky2000]

Danke Blup für deine schnelle Antwort.

Nun, die erste Lösung ist auf den ersten Blick das was ich nicht machen will da

Delphi-Quellcode:

SchreibeZeile(StringGrid1, Zeile);
SchreibeZeile(StringGrid2, Zeile);
SchreibeZeile(StringGrid3, Zeile);
SchreibeZeile(StringGrid4, Zeile);

sich alles 4 mal wiederholt.

Die zweite Lösung sieht da schon deutlich interessanter aus.
Ich werde mich mal damit befassen und es mal ausprobieren und würde mich jedenfalls melden.

Ich danke Dir erst mal dafür.

EDIT:
Ich sagte ja, ich bin kein Programmierer...
Wenn ich das jetzt so richtig verstehe, wird auch hier alles 4 mal wiederholt.

Mit der Zeile

Delphi-Quellcode:

for i := 0 to 3 do
  SchreibeZeile(GetStringGrid(i), Zeile);

rufe ich die folgende Funktion auf

Delphi-Quellcode:

function TReport.GetStringGrid(AIndex: Integer): TStringGrid;
begin
  case AIndex of
    0: Result := StringGrid1;
    1: Result := StringGrid2;
    2: Result := StringGrid3;
    3: Result := StringGrid4;
  else
    raise Exeption.Create('Bereichsüberschreitung');
  end;
end;

...und bei jedem "Result := " wird der auszuführende Code rein geschrieben.
Somit vervierfache ich ihn auch hier.

Leider ist auch das nicht die Lösung die ich suche.