Cx Grid Mit slist füllen.....

[uligerhardt]

Probier's mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  slist: TStringList;
  i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    slist := TStringList.Create;
    try
      slist.LoadFromFile(OpenDialog1.FileName);
      cxGrid1TableView1.BeginUpdate;
      try
        cxGrid1TableView1.DataController.RecordCount := slist.Count;
        for i := 0 to slist.Count - 1 do
          cxGrid1TableView1.DataController.Values[i, 0] := slist[i];
      finally
        cxGrid1TableView1.EndUpdate;
      end;
    finally
      slist.Free;
    end;
  end;
end;