Einzelnen Beitrag anzeigen

Benutzerbild von juergen
juergen

Registriert seit: 10. Jan 2005
Ort: Bönen
1.175 Beiträge
 
Delphi 11 Alexandria
 
#1

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

  Alt 22. Mai 2010, 16:19
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!
Jürgen
Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)
  Mit Zitat antworten Zitat