.txt Datei einlesen (CommaSeperated)

[Bummi]

Delphi-Quellcode:

Procedure Split(DestStringList:TStringList;Const s:String;Separator:Char);
var
 i:Integer;
 bf:String;
 lf:Integer;
  begin
    Assert(Assigned(DestStringList));
    DestStringList.Clear;
    lf := 1;
    for i := 1 to length(s) do
      begin
         if s[i] = Separator then
           begin
             DestStringList.Add(Copy(s,lf,i - lf));
             lf := i + 1;
           end;
      end;
      DestStringList.Add(Copy(s,lf,i - lf));
  end;

procedure TForm5.Button1Click(Sender: TObject);
var
 slAll, slRow:TStringList;
 i,c:Integer;
 s:String;
begin
    slAll := TStringList.Create;
    try
      slRow := TStringList.Create;
      try
        slAll.LoadFromFile('C:\temp\lst.txt');
        for I := 0 to slAll.Count - 1 do
            begin
              Split(slRow, 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
        slRow.Free;
      end;
    finally
        slAll.Free;
    end;
end;