dynamische TStringList(en)

[TheAn00bis]

Wenn ich dynamische StringListen erstelle, muss ich dann vorher jede einzeln Deklarieren?

Denn wenn ich zum Beispiel Buttons dynamisch erstelle, kann ich bei jedem Button den Namen neu zuweisen. Allerdings hat eine StringList die Eigenschaft "Name" nicht.

Hier ein Beispiel: Ich will 3StringListen erstellen, dass geht so:

Delphi-Quellcode:

procedure xyz;
var liste1, liste2, liste3: TStringList;
begin
liste1:=TStringList.Create;
liste2:=TStringList.Create;
liste3:=TStringList.Create;
end;

Aber das müsste doch auch irgendwie so gehen (oder?):

Delphi-Quellcode:

procedure abc;
var liste: TStringList;
begin
for i:=1 to 3 do begin
   liste:=TStringList.Create;
   liste.name:=liste(inttostr(i));
end;
end;

[SirThornberry]

ich glaub du verstehst das prinzip noch nicht ganz
Wenn du Object.Create aufrufst wird für das Object der speicher angefordert und wenn du
liste:=TStringList.Create;
schreibst so ist "liste" nichts anderes als ein Pointer auf den angeforderten Speicher.
Wenn du das also in einer For schleife machst wird auch immer wieder speicher angefordert nur dein problem ist derzeit das du die Pointer auf den reservierten Speicher bei dem nächsten Schleifendurchlauf wieder überschreibst. Und da kommen dann Listen zum einsatz

Delphi-Quellcode:

[...]
LStringlistList: TList; //Die Liste mit Pointern
[...]
var LStringlist: TStringList;
    LCount: Integer;
begin
  for LCount := 0 to 4 do
  begin
    LStringlist := TStringList.Create;
    LStringlistList.Add(LStringList); //Den Pointer auf die gerade erstellte Instanz in die Liste adden
  end;
end;

[TheAn00bis]

Danke,

du hast recht, ich habe das absolut nicht verstanden.

Habe mri auf dsdt.info jetzt ein Tutorial zu TList angeschaut, aber verstanden habe ich es nicht, da ich absolut keine Ahnung von Pointern habe.

Aber brauch ich die denn für mein Problem überhaupt? Ich will nur beliebig viele TSTringListen erstellen können und hinterher darauf zugreifen können.

In deinem Beispiel weiß ich nicht, was mir die TList bringt. Sie enthält Pointer auf den für die StringListen freigegebenen Speicher? Und wie kann ich diesen Speicher jetzt verwenden?


Wäre auch mit einem Hinweis auf ein entsprechendes Tutorial oder einen Beitrag dankbar...

[arbu man]

Wie wäre es dann mit einen Array of TStringlist oder immer wieder gut eine TObjecktlist

[TheAn00bis]

Zitat:

Zitat von arbu man

Wie wäre es dann mit einen Array of TStringlist oder immer wieder gut eine TObjecktlist

Oh wow, manchmal sieht man den Wald vor lauter Bäumen nicht. ;)

Danke für den Tip.

[Christian Seehase]

Moin TheAn00bis,

wenn Du eine Instanz von einem Objekt erzeugst, so erhältst Du, zwangsläufig, den Pointer auf das Objekt (den reservierten, und wohl auch initialisierten, Speicher).
Bei Dir würde also nun, nach dem Create Liste1 den Pointer auf die Instanz der ersten Stringliste enthalten, Liste2 den auf die zweite usw.

Bei dem Beispiel mit TList wären es dann die jeweiligen Elemente des Arrays.
Da TList aber nun einmal eine allgemeine Pointerliste ist, musst Du, bei der Verwendung, angeben, welchen Typ der Pointer hat.
Bei SirThornberrys Beispiel sähe das dann so aus:
LStringlistList[0] enthält den Pointer auf die erste StringListe, LStringlistList[1] den auf die zweite usw.
Als TStringList zugreifen kannst Du dann so:

Delphi-Quellcode:

TStringList(LStringlistList[0]).Add('Zeile der ersten StringListe hinzufügen');

Bei TList musst Du Dich aber auch darum kümmern, dass die Objekte wieder freigegeben werden, wenn Du sie nicht mehr brauchst:

Delphi-Quellcode:

 for LCount := 0 to 4 do
  begin
    TStringList(LStringlistList).Free;
  end;

Wenn Du, wie schon vorgeschlagen wurde, TObjectList verwendest, kannst Du Dir das u.U. sparen, wenn Du diese mit Create(true) aufrufst.

[Grishnak]

Ich empfehle dir eine abgeleitete Klasse von TObjectList:

Delphi-Quellcode:

type
  TStringListList = class(TObjectList)
  private
    function GetStringList(index: integer): TStringList;
    procedure SetStringList(index: integer; const Value: TStringList);
  public
    property StringList[index: integer]: TStringList read GetStringList write SetStringList; default;
  end;

[...]

{ TStringListList }

function TStringListList.GetStringList(index: integer): TStringList;
begin
  Result:=Items[index] as TStringList;
end;

procedure TStringListList.SetStringList(index: integer; const Value: TStringList);
begin
  Items[index]:=Value;
end;

Dann kannst du dir die ständige Typumwandlung (ObjectList.Items[i] as TStringList) sparen! Und wie Christian Seehase schon erwähnte, gibt die TObjectList die in ihr gespeicherte Objekte auch selbstständig wieder frei, wenn du sie - die ObjectList - nicht mit Create(false) angelegt hast.

//EDIT: wenn du eine TObjectList verwenden willst, musst du im USES-Abschnitt noch "Contnrs" einbinden!

[alcaeus]

Christian sagt ObjectList, Grishnak sagt typisierte ObjectList (Typecast sparen), ich sag ObjectList-Descendent mit Templates :mrgreen:

Der Vorteil? Du schreibst insg. 5 Zeilen Code in eine leere Unit und das wars:

Delphi-Quellcode:

unit uListItem;

interface

uses Contnrs;

type
   _LIST_ITEM_ = TStringList;
   {$DEFINE TYPED_LIST_TEMPLATE}
   {$INCLUDE objlist_tmpl.pas}
   TStringListList = _LIST_;

implementation

{$INCLUDE objlist_tmpl.pas}

end.

Besser kanns (fast) nicht mehr werden, oder? :mrgreen:

Greetz
alcaeus

[TheAn00bis]

Wow, danke für die zahlreichen Antworten!

Werde alle Varianten ausprobieren! Dann lerne ich 1. am meiten und kann 2. selber entscheiden, welches für mich das sinnvollste ist. :)

Edit: Zur TList-Variante: Das reicht doch, wenn ich die Liste ganz zum Schluß freigebe? Im onDestroy der Klasse? Warum muss ich das eigentlich selber machen, wird das beim beenden des Programmes nicht automatisch erledigt?

[bttb930]

Zitat:

Zitat von alcaeus

Christian sagt ObjectList, Grishnak sagt typisierte ObjectList (Typecast sparen), ich sag ObjectList-Descendent mit Templates :mrgreen:

Der Vorteil? Du schreibst insg. 5 Zeilen Code in eine leere Unit und das wars:

Delphi-Quellcode:

unit uListItem;

interface

uses Contnrs;

type
   _LIST_ITEM_ = TStringList;
   {$DEFINE TYPED_LIST_TEMPLATE}
   {$INCLUDE objlist_tmpl.pas}
   TStringListList = _LIST_;

implementation

{$INCLUDE objlist_tmpl.pas}

end.

Besser kanns (fast) nicht mehr werden, oder? :mrgreen:

Greetz
alcaeus

Was ist das denn für ein Gehacke??? Und ist das hilfreich um einem Anfänger ein Problem zu erklären? Sicher nicht.

[alcaeus]

Zitat:

Zitat von bttb930

Was ist das denn für ein Gehacke???

Das "Gehacke" sind Templates, falls du damit noch nicht vertraut bist.

Zitat:

Zitat von bttb930

Und ist das hilfreich um einem Anfänger ein Problem zu erklären? Sicher nicht.

Das will ich nicht beurteilen, es ist jedenfalls einer der moeglichen Loesungswege. Der Vorteil ist, dass ich mir jede Menge Tipparbeit erspare, indem ich nicht TList nochmal ableiten und dort alle Typen anpassen muss (Das Beispiel von Grishnak enthaelt ja nur das notwaendigste).

Und ob man einem Anfaenger zumutet, TList neu zu schreiben und alle Typen auszutauschen, oder ob man ihn 5 Zeilen fuer die Templates schreiben laesst, macht wohl auch keinen Unterschied mehr :roll:

Greetz
alcaeus

[Grishnak]

Zitat:

Zitat von TheAn00bis

Zur TList-Variante: Das reicht doch, wenn ich die Liste ganz zum Schluß freigebe?

Natürlich kannst du die Destroy-Methode eines von TList abgeleiteten Objektes überschreiben, aber wenn du während der Laufzeit etwas aus der Liste entfernst (per 'Delete' oder 'Extract'), dann musst du ebenfalls dafür sorgen, dass das Objekt selbst auch gelöscht wird. D.h. du musst diese Methoden (wenn du sie benutzt) ebenfalls überschreiben.

[Christian Seehase]

Moin TheAn00bis,

Zitat:

Zitat von TheAn00bis

Zur TList-Variante: Das reicht doch, wenn ich die Liste ganz zum Schluß freigebe?

solange Du dabei nicht vergisst, auch die in der Liste enthaltenen Objekte wieder freizugeben.
Dass passiert nämlich nicht automatisch.

[Muetze1]

Zitat:

Zitat von Grishnak

Zitat:

Zitat von TheAn00bis

Zur TList-Variante: Das reicht doch, wenn ich die Liste ganz zum Schluß freigebe?

Natürlich kannst du die Destroy-Methode eines von TList abgeleiteten Objektes überschreiben, aber wenn du während der Laufzeit etwas aus der Liste entfernst (per 'Delete' oder 'Extract'), dann musst du ebenfalls dafür sorgen, dass das Objekt selbst auch gelöscht wird. D.h. du musst diese Methoden (wenn du sie benutzt) ebenfalls überschreiben.

Noch besser: er überschreibt die protected Methode Notify und macht auf der lnDeleted Action eine Freigabe des Objektes. Der Destructor macht nämlich ein Clear und somit kommen alle Objekte am Notify vorbei...

[TheAn00bis]

Zitat:

Zitat von Christian Seehase

Moin TheAn00bis,

Zitat:

Zitat von TheAn00bis

Zur TList-Variante: Das reicht doch, wenn ich die Liste ganz zum Schluß freigebe?

solange Du dabei nicht vergisst, auch die in der Liste enthaltenen Objekte wieder freizugeben.
Dass passiert nämlich nicht automatisch.

Die würden bis zum runterfahren drin bleiben? Ist ja verrückt...

Zitat:

Zitat von Muetze1

Noch besser: er überschreibt die protected Methode Notify und macht auf der lnDeleted Action eine Freigabe des Objektes. Der Destructor macht nämlich ein Clear und somit kommen alle Objekte am Notify vorbei...

?!

Hab jetzt die TList-Variante genommen und bin sehr zufrieden! :)

[Christian Seehase]

Moin TheAn00bis,

Zitat:

Zitat von TheAn00bis

Die würden bis zum runterfahren drin bleiben? Ist ja verrückt...

beim Beenden des Programmes würde der Speicher, i.d.R., auch aufgeräumt werden, aber es ist empfehlenswert die belegten Resourcen selber aufzuräumen, allein schon, damit man das nicht mal welche vergisst, die nicht durch das Programmende freigegeben werden.

[TheAn00bis]

Ein Problem hätte ich doch noch:

Ich hab jetzt eine KartenListeListe, die viele KartenListen enthällt. Alles Typ TList.

Die KartenListen enthalten Pointer auf viele TKarten. Eine Funktion von TKarte ist beispielsweise
"test". Ihr Ergebnis ist vom Typ String.

Wie weise ich jetzt einer Variable den Wert dieser Funktion zu?

Beispielsweise nehme ich aus KartenListeListe die erste KartenListe und daraus die zweite Karte (und davon eben die Funktion "Test").


Ich habe nur einige Ideen und die scheinen alle absolut nicht zu funktionieren.

[malo]

Delphi-Quellcode:

procedure a;
var s: string;
begin
  s := KartenListeListe1.KartenListe1.Karte2.Test;
end;

Wenn du mehrere Funktionen der entsprechenden Klasse benutzen willst, kannst du es auch so machen:

Delphi-Quellcode:

procedure a;
var s: string;
begin
  with KartenListeListe1.KartenListe1.Karte2 do
  begin
    s := Test;
  end;
end;

[TheAn00bis]

Danke, aber die Listen in KartenListeListe werden dynamisch erstellt und haben alle den selben Namen. (oder!?) Jedenfalls erstelle ich die so:

Delphi-Quellcode:

KartenListeListe:=TList.Create;

for i:=1 to 5 do 
   begin 
      KartenListe:=TList.Create;
      KartenListeListe.Add(KartenListe);
   end;

for i:=1 to 5 do 
   begin 
      Karten:=TKArte.Create;
      TList(KartenListeListe[i]).add(Karte);
   end;

Jetzt will ich aus jeder Karte davon den string auslesen können. Wie komme ich jetzt an den string einer beliebigen Karte? (wäre schön mit Variable für die Nummer der KartenListe und der Karte)

[Khabarakh]

Zitat:

Danke, aber die Listen in KartenListeListe werden dynamisch erstellt und haben alle den selben Namen. (oder!?)

Name? Instanzen habe keinen Namen, nur eine eindeutige Speicheradresse. Die Name-Property der VCL-Controls wird von Delphi lediglich zum Benennen des Feldes benutzt (und manchmal zur Identifizieren der Instanzen - dafür sind aber eigentlich Arrays und Listen da).

Delphi-Quellcode:

TKarte(TList(KartenListeListe[i]).Items[ii]).Test

Aber lass mich raten: die zwei Listen stellen ein zweidimensionales Array von Kartenteilen dar? Dann würde ich alcaeus' ObjetList-Template auf zwei Indizes umschreiben, das wird dir die Arbeit erheblich erleichtern.

[TheAn00bis]

Zitat:

Zitat von Khabarakh

Zitat:

Danke, aber die Listen in KartenListeListe werden dynamisch erstellt und haben alle den selben Namen. (oder!?)

Name? Instanzen habe keinen Namen, nur eine eindeutige Speicheradresse. Die Name-Property der VCL-Controls wird von Delphi lediglich zum Benennen des Feldes benutzt (und manchmal zur Identifizieren der Instanzen - dafür sind aber eigentlich Arrays und Listen da).

Delphi-Quellcode:

TKarte(TList(KartenListeListe[i]).Items[ii]).Test

Ah :idea:, vielen Dank!

Klar, dann muss da TKarte hin... gar nicht dran gedacht :|.

Zitat:

Zitat von Khabarakh

Aber lass mich raten: die zwei Listen stellen ein zweidimensionales Array von Kartenteilen dar? Dann würde ich alcaeus' ObjetList-Template auf zwei Indizes umschreiben, das wird dir die Arbeit erheblich erleichtern.

Zum Glück nicht... :)