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:

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!

[Uwe Raabe]

ValueFromIndex funktioniert nur, wenn die einzelnen Eintrage nach dem Schema "name=value" aufgebaut sind. In deinem Fall geht es ganz einfach so:

Delphi-Quellcode:

sl_geaendertInVtmFormat.Add(sl[4]);   // 4. "Spalte"

[juergen]

Hallo Uwe,

das war's! :thumb:
Das ist so einfach, da wäre ich so schnell wohl nicht drauf gekommen.

Vielen Dank und schöne Pfingsten!

[himitsu]

Zitat:

Zitat von Uwe Raabe

ValueFromIndex funktioniert nur, wenn die einzelnen Eintrage nach dem Schema "name=value" aufgebaut sind.

Dann ist das aber ein Fehler in der VCL, denn auch ohne Name sollte man auf den Value zugreifen können.

[Luckie]

Dann gilt: It's not a bug, it's feature. ;)

[DeddyH]

Oder "This behaviour is by design" ;)