AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Inhalt TStringList in andere TStringList kopieren
Thema durchsuchen
Ansicht
Themen-Optionen

Inhalt TStringList in andere TStringList kopieren

Ein Thema von Ferox · begonnen am 1. Jul 2009 · letzter Beitrag vom 25. Jun 2015
Antwort Antwort
Seite 2 von 2     12   
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.875 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: Inhalt TStringList in andere TStringList kopieren

  Alt 25. Jun 2015, 12:08
Zitat:
Lustigerweise macht man nicht Result.Free; am Ende, obwohl man die Liste kreeiert hat. Hm.
Du willst diese ja auch zurückgeben und nicht nur ein Nil
Markus Kinzler
  Mit Zitat antworten Zitat
Popov
(Gast)

n/a Beiträge
 
#2

AW: Inhalt TStringList in andere TStringList kopieren

  Alt 25. Jun 2015, 12:27
Das mit Result:= TStringlist.Create ist mir ziemlich neu...
Wieder was gelernt

Wenn du nur eine 08/15 Variable zurück geben willst, wie String oder Integer, das sind keine Objekte, da musst du ja auch nicht machen. Wenn es eine String-Funktion ist, dann ist Result eben ein String. Anders sieht es aber aus wenn die Funktion ein Objekt ist. In dem Fall muss man das Objekt erst erzeugen (und den Speicher reservieren). Ohne das hast du nur eine Adresse, im Grunde ein Integer, aber keinen reservierten Speicher. Das Ergebnis ist ein Error.

Das Result.Free habe ich nicht vergessen. Das findet sich in der anderen Prozedur (siehe slResult.Free; ). Man kann Objekte auch über mehrere Prozeduren verteilen. Nur darf man nicht vergessen es frei zu geben.

Ansonsten macht AddStrings das wofür es gedacht ist: es fügt die Liste von einer TStringList an eine andere an. Man kann es aber auch zum Kopieren "missbrauchen".
  Mit Zitat antworten Zitat
Popov
(Gast)

n/a Beiträge
 
#3

AW: Inhalt TStringList in andere TStringList kopieren

  Alt 25. Jun 2015, 11:59
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;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz