Wie fügen Sie die Werte dynamisch zu Zellen des TStringGrid in Delphi? Diese

Question

proedure TForm5.ButtonClick(Sender:TObject); 
var 
I,J:Integer; 
const 
MyArray:array[1..5] of string=('Siva','jindal','ram','kesu','Srinu '); 
begin 
StringGrid1.RowCount:=StringGrid1.RowCount+1; 
for J:=1 to length(MyArray); 
for I:=0 to StringGrid1.Cells[I,StringGrid1.RowCount-1]:=MyArray[J]; 
StringGrid1.Row:=StringGrid.RowCount-1; 
end; 

In ich in der Lage bin, um dynamisch Zeilen zu erstellen, aber nicht in der Lage, die Werte des Arrays in die Zellen einzufügen ..

Answer 1

Versuchen Sie, etwas mehr wie folgt statt:

procedure TForm5.ButtonClick(Sender: TObject); 
const 
    MyArray: array[1..5] of string = ('Siva', 'jindal', 'ram', 'kesu', 'Srinu '); 
var 
    I, Row: Integer; 
begin 
    Row := StringGrid1.RowCount; 
    StringGrid1.RowCount := Row + 1; 
    for I := Low(MyArray) to High(MyArray) do 
    StringGrid1.Cells[I-1, Row] := MyArray[I]; 
    StringGrid1.Row := Row; 
end;