Stringgrid-Zelle doppelt füllen

[Lannes]

Hallo,

warum das bei Dir nicht geht, kA
Hast Du die Werte richtig ins Array gesetzt?
Das funktioniert:

Delphi-Quellcode:

var
  Form1: TForm1;
  var B : Array [1..5] of Integer = (2,4,1,1,3);

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var z : Integer;
begin
  for z:= 1 to high(B) do
    StringGrid1.Cells[B[z]-1,z] := StringGrid1.Cells[B[z]-1,z]+'B';
end;

StringGrid1.Cells[B[z]-1,z] := StringGrid1.Cells[B[z]-1,z]+'B';
Das '-1' habe ich eingefügt damit in der ersten Spalte begonnen wird.