Ich wusste nicht dass DrawTextAcrossCols von Dir definiert werden kann, ich bin davon ausgegangen sie sei vorgegeben.
Wenn Du sie selbst festlegen kannst tust Du Dir sicher leichter, bei Deiner Anforderung an den Aufruf, wenn Du kein Open Array verwendest sondern etwas in der Art:
Delphi-Quellcode:
Type
TMyCellRecord=Record
Text:String;
Color:TColor;
end;
TMyDrawArray=Array of Array of TMyCellRecord;
Procedure DrawMyArray(a:TMyDrawArray);
var
c,r:Integer;
begin
for r := 0 to High(a) do
for c := 0 to High(a[r]) do
// Irgendwas mit der Zelle
end;
procedure TForm5.Button1Click(Sender: TObject);
const
cols=2;
rows=5;
var
a:TMyDrawArray;
begin
SetLength(a,rows,cols);
a[0][0].Text := 'eins';
a[0][0].Color := clLime;
//......
DrawMyArray(a)
end;