csv read

[value is NULL]

Hi Delphianer, habe eine neue herausforderung (für mich zumindest ) da ich mit csv noch nie zu tun hatte

mein csv file sieht wie folgt aus:

Code:

Firma;Channel;MAC
A;1;x
A;2;x
A;3;x
A;4;x
A;5;x
B;6;x
B;7;x

Meine Aufgabe besteht darin, Alle Einträge für Firma A (in diesem Fall Channel 1-4 und Mac x - x) in ein xml zu schreiben. Jedoch scheitere ich schon am auslesen.
Habe hier im Forum folgende unit gefunden:

http://www.delphipraxis.net/110025-c...v-dateien.html

Die ist prinzipiell super, aabbbeerrr wenn ich folgenden code verwende:

Delphi-Quellcode:

var
  csvreader : TCsvReader;
  sData : TFilestream;
  i : integer;

begin
  sData := TFilestream.Create('M:\modules Delphi\CSVreader\config.csv',fmopenread);
  csvReader := TCSVReader.Create (sData, ';');
  csvReader.First;
  try
    while not csvreader.Eof do begin
      for i:=0 to csvreader.columncount -1 do
        Writeln(csvreader.Columns[i]);
      csvreader.Next;
    end;
  finally
    csvreader.Free;
    sdata.Free;
  end;
end.

bekomme ich folgendes Ergebnis:

Code:

Firma
Channel
MAC
A
1
X
A
2
X
A
3
X
A
4
X
A
5
X
B
6
X
B
7
X

Wie könnte ich das Firmenbezogen machen bzw. hat jemand ein Beispiel wie das funktionieren könnte?

Danke im Voraus

LG