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.