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

[mikeL88]

Hi bin grad ein wenig durcheinander^^ ,
slist := TStringList.Create;
cxGrid1TableView1.BeginUpdate;
if OpenDialog1.Execute then
begin
filename := OpenDialog1.FileName;
slist.LoadFromFile(filename) ;
s := slist.Text;
for i := 0 to slist.Count -1 do
begin


würde jetzt gerne mein cxGrid mit dem text meiner datei füllen, hab aber iwie grad nen hänger, wäre um hilfe sehr dankbar.....

[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;

[mikeL88]

geht nicht.....bin echt ratlos immoment....

[uligerhardt]

Zitat:

Zitat von mikeL88 (Beitrag 1098966)

geht nicht.....

Wie "geht nicht"? Lässt sich nicht compilieren? Rechner explodiert, wenn du das Programm ausführst?