String mit Leerzeichen verursacht Chaos???

[AlexII]

Hallo,

ich speichere wie folgt die Einträge einer ListBox in eine txt-Datei:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: Integer;
    s1,s2,s3,s4: String;
    List: TStringList;
begin
  List:=TStringList.Create;
  try
    for i:=0 to ListBox1.Count-1 do
    begin
    s1:=ListBox1.Items.Strings[i];
    s2:=ListBox2.Items.Strings[i];
    s3:=ListBox3.Items.Strings[i];
    s4:=ListBox4.Items.Strings[i];
    List.Add('=' + s1 + '=' + s2 + '=' + s3 + '=' + s4 + '=');
    end;
    List.SaveToFile(ExtractFilePath(ParamStr(0)) + '\Datei.txt');
 finally
    List.Free;
 end;
end;

Befindet sich allerdings in einem der Einträge der ListBox ein Leerzeichen wird das nächstfolgende Wort nicht mehr z.B. dem s1-String zugewiesen, sondern dem s2. Im s2 dem s3. :roteyes: Wer weiß woran es liegt? :gruebel:

[mkinzler]

Leerzeichen werden standardmässig als weiteres trennzeichen erkannt. mit

Delphi-Quellcode:

StringList.StrictDelimiter := True;

kann man das verhindern

[AlexII]

Bekomme die Fehlermeldung: Undefinierter Bezeichner: 'StrictDelimiter' :gruebel:

[mkinzler]

Dann scheinst du eine etwas alte Delphiversion zu haben

[AlexII]

Oh das stimmt, mit Delphi 2006 geht's. Und wie löse ich das Problem? Muss unbedingt bei Delphi 7PE bleiben. :gruebel:

Kann ich die Items der ListBox irgendwie anders abspeichern?

[mkinzler]

Zitat:

Oh das stimmt, mit Delphi 2006 geht's. Und wie löse ich das Problem? Muss unbedingt bei Delphi 7PE bleiben. Grübelnd...

Warum das?

Zitat:

Kann ich die Items der ListBox irgendwie anders abspeichern?

Ja manuell durchegehn und in eine Textdatei speichern

[AlexII]

Zitat:

Zitat:

Zitat von mkinzler

Zitat:

Oh das stimmt, mit Delphi 2006 geht's. Und wie löse ich das Problem? Muss unbedingt bei Delphi 7PE bleiben. Grübelnd...

Warum das?

Weil ich mir keine andere Version leisten kann und Turbo Explorer lässt keine Komponenten installieren.

Zitat:

Zitat:

Kann ich die Items der ListBox irgendwie anders abspeichern?

Ja manuell durchegehn und in eine Textdatei speichern

Geht das auch wie oben in einer Schleife? :gruebel:

[mkinzler]

Ja

[Klaus01]

.. oder Du schaust Dir einmal explode und implode an.

Grüße
Klaus

[Dax]

Zitat:

Zitat von mkinzler

Ja

[OT]
Daniiieeeeel set das untere Limit für Beitragslängen mal auf mindestens zwanzig Zeichen *G*
[/OT]

[AlexII]

Zitat:

Zitat von Klaus01

.. oder Du schaust Dir einmal explode und implode an.

Danke dir, ist aber viel zu schwer und aufwendig. :roteyes:

[AlexII]

Zitat:

Zitat von Dax

Zitat:

Zitat von mkinzler

Ja

[OT]
Daniiieeeeel set das untere Limit für Beitragslängen mal auf mindestens zwanzig Zeichen *G*
[/OT]

Wie bitte? :gruebel:

[mkinzler]

Zitat:

Zitat von AlexII

Zitat:

Zitat von Dax

Zitat:

Zitat von mkinzler

Ja

[OT]
Daniiieeeeel set das untere Limit für Beitragslängen mal auf mindestens zwanzig Zeichen *G*
[/OT]

Was was? :gruebel:

Dax will das ich mich nicht so kurz fasse, sondern Antworten in Romanform verfasse. Zu diesem Zwecke soll Cheffe (Daniel) die Forensoftware so anpassen, das diese mich für meine kurzen Beiträge rügt und das Posten von zu kurzen Beiträgen verhindert.

Alsoe ien Anti-mkinzler Modifikation, welche er sich dann patentieren lassen kann. :stupid:

[AlexII]

mkinzler gib mir bitte nen Tipp wie ich das machen soll, bin schon zwei Tage dran und hab keine Kraft mehr :pale:
Hab mit "ValueFrom Index" versucht, aber da wird immer das erste Zeichen des Strings abgeschnitten. :wall:

[mkinzler]

So sollte es gehen:

Delphi-Quellcode:

...
var
  tf: textFile;
...
  AssignFile( tf, ExtractFilePath(ParamStr(0)) + '\Datei.txt');
  Reswrite( tf);
  for i:=0 to ListBox1.Count-1 do
  begin
    s1:=ListBox1.Items.Strings[i];
    s2:=ListBox2.Items.Strings[i];
    s3:=ListBox3.Items.Strings[i];
    s4:=ListBox4.Items.Strings[i];
    WriteLn( tf, '=' + s1 + '=' + s2 + '=' + s3 + '=' + s4 + '=');
  end;
...

getippt und nicht getestet

[AlexII]

Aber ich will doch die ListBox.Items in eine txt-Datei speichern. Die Datei.txt hat ja hier nix zu suchen, erst ganz unten wird sie erstellt. :gruebel:

[mkinzler]

Dann sollte es mit ListBox1.Items.SavetoFile() gehen

[Satty67]

Zitat:

Zitat von AlexII

Aber ich will doch die ListBox.Items in eine txt-Datei speichern. Die Datei.txt hat ja hier nix zu suchen, erst ganz unten wird sie erstellt. :gruebel:

Den Code von mkinzler überhaupt probiert?

Er muss ja zeilenweise speichern, und nicht erst alles am Ende, weil er keine StringList als Puffer nimmt.

[AlexII]

Zitat:

Er muss ja zeilenweise speichern, und nicht erst alles am Ende, weil er keine StringList als Puffer nimmt.

Ja habe ich, die .txt ist danach immer leer.

[mkinzler]

Schlieest du die Datei auch (

Delphi-Quellcode:

CloseFile( tf);

)?

[AlexII]

Ich hab das Problem wo anders gefunden, die Strings werden doch richtig und mit Leerzeichen gespeichert, geladen werden sie falsch und ich dachte sie wurden falsch abgespeichert, verzeiht. Hier werden die Strings mit den Leerzeichen durcheinander gebracht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
    List : TStringList;
    List2: TStringList;
begin
  List:=TStringList.Create;
  List2:=TStringList.Create;
  List2.Delimiter:='=';
  try
    List.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\Datei.txt');
    for i:=0 to List.Count-1 do
    begin
    List2.DelimitedText:=List[i];

    ListBox1.Items.Insert(i, List2[1]);
    ListBox2.Items.Insert(i, List2[2]);
    ListBox3.Items.Insert(i, List2[3]);
    ListBox4.Items.Insert(i, List2[4]);
    end;
  finally
    List.Free;
    List2.Free;
  end;
end;

[mkinzler]

In diesem Fall könntest du die Leerzeichen durch ein anderes Zeichen (welches im text natürlich nicht vorkommen darf) ersetzen. Später durch die Einträge durchgehen und zurückersetzen

[AlexII]

Das hatte ich auch vor :-D aber ich gucke mal, vllt beseitige ich das Problem anders.

[mkinzler]

Zitat:

Zitat von AlexII

Das hatte ich auch vor :-D aber ich gucke mal, vllt beseitige ich das Problem anders.

Sollte eigentlich kein großes Problem darstellen

[Klaus01]

Hallo,

ich hatte mal für einen anderen Thread das explode
so umgebaut das es eine StringList zurückgibt.

Delphi-Quellcode:

// Explode trennt S in die durch Separator getrennten Elemente auf. Wenn Limit
// > 0 ist, so werden max. Limit Elemente getrennt, wobei im letzen Element
// die Restzeichenkette steht.

function Explode(const Separator, S: string; Limit: Integer = 0): TStringList;
var
  SepLen: Integer;
  F, P: PChar;
  Index: Integer;
begin
  result := TStringList.Create;
  if (S = '') or (Limit < 0) then Exit;
  if Separator = '' then
  begin
    Result.add(S);
    Exit;
  end;
  SepLen := Length(Separator);

  Index := 0;
  P := PChar(S);
  while P^ <> #0 do
  begin
    F := P;
    P := AnsiStrPos(P, PChar(Separator));
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then
      P := StrEnd(F);
    result.Add(copy(AnsiString(F),0,P-F));
    inc(index,1);
    if P^ <> #0 then Inc(P, SepLen);
  end;

end;

Damit würde Dein Code dann so ausschauen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
    List : TStringList;
    List2: TStringList;
begin
  List:=TStringList.Create;
  try
    List.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\Datei.txt');
    for i:=0 to List.Count-1 do
      begin
        List2:=explode('=',List[i]);

        ListBox1.Items.Insert(i, List2[1]);
        ListBox2.Items.Insert(i, List2[2]);
        ListBox3.Items.Insert(i, List2[3]);
        ListBox4.Items.Insert(i, List2[4]);
        List2.free;
      end;
  finally
    List.Free;
  
  end;
end;

Grüße
Klaus

[AlexII]

Wow es klappt, aber wieso wird die List2 in der Schleife freigegeben, ist das richtig so? :gruebel:

[Klaus01]

Zitat:

Zitat von AlexII

Wow es klappt, aber wieso wird die List2 in der Schleife freigegeben, ist das richtig so? :gruebel:

ja, denn explode erstellt eine StringList Instanz und diese wird List2 übergeben.

Grüße
Klaus

[AlexII]

Ah... jah... ok, danke dir :thumb: