XLS in CSV

[Maya]

Ich habe jetzt noch das Problem mit den Spaltennamen (also die Überschriften) geklärt. Ich habe noch folgendes eingefügt:

Delphi-Quellcode:

    
PatBehandlungData.qryAdo.GetFieldNames(Feldernamen);
    S:='';
    for i := 0 to Feldernamen.Count - 1 do
      begin
        if S<>'' then S:=S+';';
        S:=S+Feldernamen.Strings[i];
      end;
    XLSStringlist.Add(S);

Somit hat man dann eine recht genaue Kopie von der XLS mit den Überschriften, die ich für meine Zwecke dringend benötige.