Record in .csv Datei schreiben

[Jasocul]

1. Die Datei muss die Endung CSV haben.
2. Der Code muss etwa so aussehen:

Delphi-Quellcode:

type
  TPCANMsg = record
     ID: LongWord;       // 11/29 Bit-Kennung
     MSGTYPE: Byte;      // Bits aus MSGTYPE_*
     LEN: Byte;          // Anzahl der gueltigen Daten-Bytes (1..8)
     DATA: array[0..7] of Byte;    // Daten-Bytes 0..7
    end;
var
  rec : TPCANMsg;

procedure RecordSchreiben;
var
  datei : TextFile;
begin
  AssignFile(datei,'c:\test.cvs');         //Datei erstellen
  If FileExists('c:\test.cvs')then
    ReSet(datei)                        //Datei öffnen und dabei alte Daten löschen
  else
    ReWrite(datei);                     //Datei öffnen
  writeln(datei, IntToStr(ID)+';'+IntToStr(MSGTYPE)+';'+IntToStr(LEN)+';'+IntToStr(ID)+';'+
                 IntToStr(DATA[0])+';'+IntToStr(DATA[1])+';'++IntToStr(DATA[2])+';'+IntToStr(DATA[3])+';'
                 +IntToStr(DATA[4])+';'+IntToStr(DATA[5])+';'+IntToStr(DATA[6])+';'+IntToStr(DATA[7]));
  closefile(datei);
end;

Ungetestet und nur schnell mal reingehackt. Und auch nur für einen Datensatz.
Für mehrere Datensätze musst du eine Schleife basteln oder statt Reset eine AppendFile nehmen.