Hallo zusammen,
ich muss ein bestehendes Tool ändern, welches Dateien einliest und nach einem vorgegebenem Format wieder neu ausgibt,
da sich der Aufbau der Dateien geändert hat (anstelle fester Positionen wird nun für jeder "Spalte" ein Semikolon als Trennzeichen verwendet).
Nun hatte ich die Eigenschaft "Delimimiter" bei TStringList() entdeckt und ich hatte mich in diese Richtung mal weiter informiert.
Mein Problem:
das erste Zeichen des "Ausgabe"- Strings wird nicht mit ausgegeben.
Die Datei hat (vereinfacht) folgenden Aufbau:
...
0811;;124566;00054578;20100502;;;0651;K;;;
0811;;124566;00054578;20100502;;;1225;D;;;1
0811;;124566;00054578;20100503;;;0721;K;;;
0811;;124566;00054578;20100503;;;1225;G;;;
05499;V;124522;00054509;20100503;;;0658;K;;;
05499;V;124522;00054509;20100503;;;1806;G;;;
...
Ganz grob mein verwendeter Code:
Delphi-Quellcode:
...
if sl_ContentFromAllFiles.Count > 0 then begin
sl.Delimiter := ';'; // Trennzeichen einstellen
for i := 0 to (sl_ContentFromAllFiles.Count -1) do begin
begin
input := sl_ContentFromAllFiles.Strings[i];
try
sl.DelimitedText := input; // Delphi die Arbeit machen lassen
sl_geaendertInVtmFormat.Add(sl.ValueFromIndex[4]); // 4. "Spalte"
finally
end;
end;
end;
...
Ich erwarte eigentlich den Wert "20100502" erhalte aber "0100502". Es fehlt also immer das erste Zeichen.
Ich kenne mich nun nicht groß aus und weiß nicht ob ich einen Denkfehler habe bzw. etwas falsch verstanden habe oder ob das so gar nicht geht.
Für Antworten und Hilfestellungen vorab schon mal Danke!