.txt Datei einlesen (CommaSeperated)

[Bummi]

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var
 slAll, slRow:TStringList;
 i,c:Integer;
 s:String;
begin
    slAll := TStringList.Create;
    slRow := TStringList.Create;
    slRow.Delimiter := ',';
    slRow.StrictDelimiter := true;
    try
      slAll.LoadFromFile('C:\temp\lst.txt');
      for I := 0 to slAll.Count - 1 do
          begin
            slRow.DelimitedText := slAll[i];
            s := 'Zeile: ' + IntToStr(i) + ' > ';// nur für Demo
            for c := 0 to slRow.Count - 1 do
                begin
                  s := s + IntToStr(c) +' Spalte : ' + slRow[c]+ ', ';
                end;
             s := Copy(s,1,length(s)-2);
             Memo1.Lines.Add(s);
          end;
    finally
      slAll.Free;
      slRow.Free;
    end;
end;