Einzelnen Beitrag anzeigen

einbeliebigername
Online

Registriert seit: 24. Aug 2004
130 Beiträge
 
Delphi XE8 Professional
 
#10

AW: TStringlist wieder mit Trennzeichen speichern

  Alt 22. Jan 2020, 12:21
Hallo,

man kann das auch komplizierter machen als es ist.
Delphi-Quellcode:
program Dp203164Project1;
{$APPTYPE CONSOLE}
uses
  System.SysUtils,
  System.Classes;
var
  vSl: TStringList;
  vI: Integer;
begin
  vSl:= TStringList.Create;
  try
    vSl.LineBreak:= ';';
    vSl.LoadFromFile('Test1.txt');
    Writeln('vSl.Count: '+ vSl.Count.ToString);
    for vI:= 0 to vSl.Count- 1 do
      Writeln('vSl['+ vI.ToString+ ']: '+ vSl[vI]);
    vSl.delete(2);
    vSl.delete(3);
    vSl.Move(1,0);
    vSl.insert(1,'10');
    vSl.Move(3,2);
    vSl.insert(3,'1');
    vSl.insert(4,'1');
    vSl.insert(5,' ');
    vSl.SaveToFile('Test2.txt');
  finally
    vSl.Free;
  end;
  Readln;
end.
Mit dem Inhalt
Code:
0193433020;2301000953;CNC-DB;3302060000;drehen01;300;;;;
ohne Enter in Test1.txt gibt es die Ausgabe:
Code:
vSl.Count: 9
vSl[0]: 0193433020
vSl[1]: 2301000953
vSl[2]: CNC-DB
vSl[3]: 3302060000
vSl[4]: drehen01
vSl[5]: 300
vSl[6]:
vSl[7]:
vSl[8]:
und den Inhalt
Code:
2301000953;10;3302060000;1;1; ;0193433020;300;;;;
ohne Enter in Test2.txt. Noch nicht ganz was der TE will. Das liegt aber an:
Delphi-Quellcode:
    vSl.delete(2);
    vSl.delete(3);
    vSl.Move(1,0);
    vSl.insert(1,'10');
    vSl.Move(3,2);
    vSl.insert(3,'1');
    vSl.insert(4,'1');
    vSl.insert(5,' ');
Mit freundlichen Grüßen, einbeliebigername.
  Mit Zitat antworten Zitat