CSV Datei einlesen .. Return in CSV-Datei

[erich.wanker]

Hallo Leute,
ich will eine CSV Datei einlesen (in ein TMemo - altes ACCESS-Programm ist die Quelle) und importieren - aber es klappt nicht.

Jetzt habe ich den Fehler gefunden: Einige Felder vom Access sind Notizfelder, wo Zeilenumbrüche drinnen sind.

Dadurch sind die Zeilenumbrüche auch in der CSV Datei - und die versauen mir den Import!


Jetzt hab ich gedacht - lösche ich einfach alle Zeilenumbrüche .. funktioniert aber auch nicht .. (Listenindex überschreitet..)

Ich mach folgendes:

Delphi-Quellcode:

memo1.Text := StringReplace(memo1.Text, sLineBreak, '', [rfReplaceAll]);


              for i:=0 to memo1.Lines.Count-1 do
              begin
                try
                  SL:=TStringList.Create;
                  SL.Delimiter := ';';
                  SL.StrictDelimiter:=true;
                  SL.DelimitedText := memo1.Lines[i];



                  t0 := SL.Strings[0];
                  t1 := SL.Strings[1];
                  t2 := SL.Strings[2];
                  t3 := SL.Strings[3];
                  t4 := SL.Strings[4];
                  t5 := SL.Strings[5];
ect..

Hat jemand eine Idee was ich da machen kann?

LiGrü
Erich