1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure GridSpeichern(grd:TStringGrid;Datei:string);
var sl:TStringlist;
x,y,e:integer;
begin
sl:=TStringlist.create;
sl.add(inttostr(grd.colcount));
sl.add(inttostr(grd.rowcount));

for x:=0 to grd.ColCount-1 do
for y:=0 to grd.RowCount-1 do
sl.add(grd.cells[x,y]);


for x:=0 to grd.ColCount-1 do
sl.add(inttostr(grd.ColWidths[x]));

for x:=0 to grd.RowCount-1 do
sl.add(inttostr(grd.RowHeights[x]));

//Hier hängts... für Farbe ein Array..??
for e:=0 to grd.RowCount-1 do
sl.add(inttostr(grd.Color???);


sl.add(inttostr(grd.clientwidth));
sl.add(inttostr(grd.clientheight));
sl.add(inttostr(ord(grd.ScrollBars)));
sl.savetofile(datei);
sl.free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

[general]
sizeX=2
sizeY=3
[1x1]
content="blah!"
font="blubberfont"
color=*sag gleich was dazu*
[1x2]
content="blah1!"
font="blubberfont1"
color=*sag gleich was dazu*1					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  StringGrid1.Canvas.Brush.Color := clWhite;
  StringGrid1.Canvas.FillRect(Rect);
  if ACol = ARow then
    StringGrid1.Canvas.Font.Color := clRed
  else
    StringGrid1.Canvas.Font.Color := clBlack;

  StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
end;					

1:
2:
3:
4:

 var myArray: array of array of TColor;
begin
  SetLength(myArray, 10); //nun hast du ein array[0 .. 9] of array of TColor. Das sind also 10 dynamische Arrays!
  SetLength(myArray[0], 10); //das erste der dynamischen Arrays sieht nun so aus: array[0 .. 9] of TColor					

1:
2:

 for x := Low(MyArray) to High(MyArray) do
  SetLength(MyArray[x], Laenge);