TAdvStringGrid

[milo]

Testprojekt mit einem StringGrid auf der Form das mindestens 8 Spalten enthält. Die Anzahl der Zeilen ist mehr als zwei...:

Delphi-Quellcode:

function TForm1.AchteSpalte: String;
begin
  With AdvStringGrid1 do
   if Length(Cells[8,Row]) > 0 then
     Result := Cells[8,Row]
    else
     Result := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(AchteSpalte);
end;

procedure TForm1.FormCreate(Sender: TObject);
Var nI, nL : Integer;
begin
  for nI := 1 to AdvStringGrid1.RowCount - 1 do
    for nL := 1 to AdvStringGrid1.ColCount - 1 do
      AdvStringGrid1.Cells[nL,nI] := Chr(64 + nL + ni);

end;