csv in Stringgrid laden

[bonanza]

Hi,


ich suche eine Funktion, mit der ich CSV-Dateien in ein Stringgrid laden kann.


danke schonmal !

[marabu]

Hallo,

zwei Links für dich: LoadFromFile() und den Inhalt eines StringGrids speichern und laden

Grüße vom marabu

[mkinzler]

Entweder mit einem CSV-DataSet und einem DBGrid oder so oder ähnlich

Delphi-Quellcode:

var
    sl1, sl2: TStrings;
    i,j: Integer;
begin
    sl1 := TStringList.Create;
    sl2 := TStringList.Create;
    sl1.LoadFromFile( ...);
    StringGrid.RowCount := Sl1.Count;
    for j := 0 to sl1.Count -1 do  
    begin
        sl2.DelimitedText := sl1.Strings[k];
        if StringGrid.RowCount < sl2.Count then StringGrid.RowCount := sl2.Count;
        for i := 0 to sl2.Count do 
        begin
            StringGrid.Cells[k, i] := sl1.Strings[i];
        end;
    end;

Getippt und nicht getestet.