TStringlist wieder mit Trennzeichen speichern

[Klaus01]

was meinst Du mit hängt?

Mit der Routine bekomme ich alle Spalteneinträge im Memo angezeigt.

Delphi-Quellcode:

var
  sl: TStringList;
  slZeile: TStringList;
  zeile,spalte: Integer;
begin
 sl := TStringList.Create;
 try
   sl.LoadFromFile('e:\test.txt');
   for zeile:=0 to sl.Count -1 do
     begin
       slZeile := TStringList.Create;
       try
         slZeile.Delimiter := ';';
         slZeile.DelimitedText := sl[zeile];
         for spalte := 0 to slZeile.Count -1 do
           if slZeile[spalte] = '' then
             memo1.Lines.Add('----')
           else
             memo1.Lines.Add(slZeile[spalte]);
       finally
         slZeile.Free;
       end;
     end;
 finally
   sl.Free;
 end;
end;

Im Memo steht dann:

Code:

0193433020
2301000953
CNC-DB
3302060000
drehen01
300
----
----
----
----

Die Datei besteht aus der Zeile:

Code:

0193433020;2301000953;CNC-DB;3302060000;drehen01;300;;;;

Grüße
Klaus