TStringList, wie erfolgt Stringausgabe von z.B Delimiter[3]?

**juergen**

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:

zusammenfalten · markieren

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!

TStringList, wie erfolgt Stringausgabe von z.B Delimiter[3]?

TStringList, wie erfolgt Stringausgabe von z.B Delimiter[3]?

Forumregeln