StringList -> StringReplace "verschluckt" letztes Zeichen

[incognito]

Hallo Leute,

zum Einlesen einer csv-Datei in meine Datenbank benutze ich zwei Stringlisten:

Delphi-Quellcode:

....

var
  masterslist : TStringList;
  detailslist : TStringList;
  index         : Integer; 
begin
  masterslist := TStringList.Create; 
  detailslist := TStringList.Create; 
  try
    detailslist.Delimiter := ';';   
    masterslist.LoadFromFile(Edit_DATEI.Text);
    for index := 1 to Pred (masterslist.Count) do
    begin
      detailslist.Clear;
      detailslist.DelimitedText := '"' + StringReplace(masterslist.Strings[index],';','";"',[rfReplaceAll]);
     //ShowMessage(masterslist.Strings[index]);
     //ShowMessage(detailslist.Strings[3]);

....

Wenn ich mir die Strings der Masterlist ansehe (showMessage) dann stimmt noch alles, sehe ich mir den letzten String in der Detailslist an, dann fehlt der letzte Buchstabe des String. Wenn hinter dem letzten Buchstaben, also vor dem Zeilenende, ein Leerzeichen steht, dann fehlt der letzte Buchstabe nicht. Ich hab keine Ahnung, woran das liegen kann?!? Ich hoffe ihr könnt mir da weiterhelfen und habt evtl. einen Tip, wie ich das Problem lösen kann?!?!

Danke schonmal!

Jana

[xZise]

Ist den ".DelimitedText" die richtige eigenschaft?

Bräuchtest du nicht ".Text"? Ist aber nur geraten, da ich mich noch nicht so mit ".DelimitedText" auseinandergesetzt habe.

MfG
xZise

[RavenIV]

Müsst es nicht heissen:
for index := 0 to masterslist.Count -1 do und anstelle von
detailslist.Delimiter := ';'; würde ich mal dies probieren:
masterslist.Delimiter := ';';

[incognito]

Zitat von xZise:

Ist den ".DelimitedText" die richtige eigenschaft?

Bräuchtest du nicht ".Text"? Ist aber nur geraten, da ich mich noch nicht so mit ".DelimitedText" auseinandergesetzt habe.

MfG
xZise

Hallo xZise,

ich möchte die einzelnen Einträge einer Zeile

Eintrag A;Eintrag B;Eintrag C
Eintrag A;Eintrag B;Eintrag C


in jeweils eine Spalte (A,B,C) der DB-Tabelle schreiben. Die "Spalten" sind mit ' ; ' getrennt und mit DelimitedText kann ich mit dem Delimiter angeben, wonach die Spalten getrennt werden sollen. Die Eigenschaft TEXT trennt glaub ich nach Zeilenumbruch, bin mir nicht ganz sicher.

In meinem Fall fehlt nun allerdings immer der Buchstabe C ...

[mkinzler]

Ein Leerzeichen immer auch ein Trenner. Ab D7 kann man das durch Setzen der Eigenschaft .StrictDelimiter auf True unterbinden.

[incognito]

Hallo RavenIV,

Zitat von RavenIV:

Müsst es nicht heissen:
for index := 0 to masterslist.Count -1 do

Die Funktion PRED gibt den Vorgänger zurück, sollte also auf dasselbe hinauslaufen

Zitat von RavenIV:

und anstelle von
detailslist.Delimiter := ';'; würde ich mal dies probieren:
masterslist.Delimiter := ';';

Die Masterlist muss ja eigentlich nicht schon getrennt werden. Soll erstmal Zeile für Zeile die Datei einlesen. Die Strings müssen dann in der detailslist getrennt werden, damit ich sie in die Spalten einlesen kann. Oder warum meinst du, sollte ich den Delimiter für die Masterlist setzen??

[incognito]

Zitat von mkinzler:

Ein Leerzeichen immer auch ein Trenner. Ab D7 kann man das durch Setzen der Eigenschaft .StrictDelimiter auf True unterbinden.

Wo kann ich diese Eigenschaft setzen? Bei meiner Stringlist wird sie mir nicht angeboten.
Merkwürdig ist ja, das gerade MIT dem Leerzeichen am Ende der letzte Buchstabe da ist. Nur wenn keins am Ende steht, fehlt das letzte Zeichen

[mkinzler]

Welche Delphiversion hast du?

[grenzgaenger]

Schau dir mal den Post an. Denke, er ist genau das was du brauchst. <HTH>