Inhalt TStringList in andere TStringList kopieren

[Ferox]

Ich habe nochmal kurz eine Verständnis Frage:

Wenn ich einer TStringList den Inhalt einer anderen TStringList zuweise, lieg ich doch hiermit total daneben oder?

 StringList1 := StringList2;

[DeddyH]

Damit zeigen beide Objekte auf dieselbe Instanz, das ist sicher nicht das, was Du erreichen willst. Du könntest entweder Assign oder AddStrings verwenden, wobei ich Assign für die elegantere Variante halte.

[Ferox]

Werds mal probieren.

Danke
Ferox

[mschaefer]

   Stnglist_A.Text := StringList_B.Text;

[DeddyH]

Stimmt, das ginge auch, hab ich gar nicht dran gedacht.

[jaenicke]

Zitat von mschaefer:

   Stnglist_A.Text := StringList_B.Text;

Der Unterschied ist, dass so nur der Inhalt kopiert wird. Dafür wird bei Assign intern wiederum AddStrings aufgerufen. Der Unterschied ist aber, dass bei Assign auch Delimiter-Einstellungen usw. kopiert werden.

[mschaefer]

- - Der Hinweis ist gut ! // Grüße Martin

[Antonov]

Wie sieht es denn mit dem Übergeben einer Stringlist am ende einer Funktion aus?
Ich knobel schon den ganzen Vormittag damit, einen Zeiger-Fehler zu beheben, der scheinbar durch leere Listen verursacht wird.

mein Code ist etwa so:

Delphi-Quellcode:

function TForm1.ManipulateList(ThatList: TStringlist): TStringlist;
   var
      I: Integer;
      TempString: String;
      TempStringlist: TStringlist;
begin
   TempStringlist:= Thatlist;
   [... manipulate TempStringList ...]
   Result:= Tempstringlist;
   TempstringList.free;

Der Fehler wird verursacht, weil meine MyList, die ich anderer Stelle aus dem Result kriege ManipulatedList:= ManipulateList(MyList); einfach verschwindet.
Das Problem liegt wohl an dem TempStringlist.free; , wo ich die TempStringlist lösche. Das weiß ich, weil ich durch Probieren genau hier den Grund dafür gefunden habe. Mit .Free kriege ich leere Listen und damit Fehlermeldungen vom Typ "Listenindex überschreitet Maximum", und ohne das .Free läuft alles super.
Jetzt zwei Fragen:
1)Brauche ich das Löschen mit .Free hier?
2) Wie kriege ich meine Liste als Funktionsrückgabe kopiert und nicht als Zeiger?
Methoden wie Result.Assign(TempStringlist); haben nicht funktioniert.

[mkinzler]

Eine Klassenreferenz ist ein Zeiger, nach
   TempStringlist:= Thatlist; Zeigen sowohl TempStringList wir auch ThatList auf das selbe Objekt.

Delphi-Quellcode:

function TForm1.ManipulateList(ThatList: TStrings): TStrings;
   var
      I: Integer;
      TempString: String;
      TempStringlist: TStrings;
begin
   TempStringlist:= TstringList.Create;
   TempStringList.Append(Thatlist);
   [... manipulate TempStringList ...]
   Result:= Tempstringlist;
   //TempstringList.free;

[Popov]

Zuerst paar Punkte vorweg: wer Try Finally ignoriert, weil er es zu dem Zeitpunkt noch nicht braucht und es mal später reinschreiben will, der verdient all seine Probleme. Denn wer Try Finally direkt schreibt, sieht wo es happert. Es fällt schon alleine durch den Block auf wo noch etwas fehlt. Wer es nicht macht, den kann man nicht bedauern wenn es paar Stunden an einem Problem hängt. Das sind selbstfabrizierte Probleme.

Wenn man einmal TempStringlist als Variablennamen definiert hat, dann bleibt man dabei. Man schreibt es nicht mal TempStringlist, mal Tempstringlist, mal TempstringList. In der Windowswelt ist es egal, es erhöht aber die Lesbarkeit. In anderen BS ist das ein Fehler.

Ich weiß zwar nicht was du machen willst, aber ja, ein Free ist immer nötig.

Wenn du an Result (TStringList) etwas übergeben willst, wie wäre es wenn du es erst erzeugen würdest?

Was meinst du mit kopieren? Willst du tatsächlich nur die Adresse kopieren oder den Inhalt?

Ein Vorschlag:

Delphi-Quellcode:

function ManipulateList(ThatList: TStringlist): TStringlist;
var
  TempStringList: TStringlist;
begin
  TempStringList := TStringList.Create;
  try
    TempStringList.AddStrings(ThatList);

    //hier irgendwas machen

    Result := TStringList.Create;
    Result.AddStrings(TempStringlist);
  finally
    TempStringList.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  sl, slResult: TStringList;
begin
  sl := TStringList.Create;
  try
    for i := 1 to 20 do
      sl.Add(IntToStr(i));

    slResult := ManipulateList(sl);

    ShowMessage(slResult.Text);

    slResult.Free;
  finally
    sl.Free;
  end;
end;