Wie benutzt man TJclStrQueue

[WoGe]

In den JCJs gibt es die TJclStrQueue . Das scheint eine FiFo Liste zu sein - etwas was ich gerade brauche.

Die Deklaration sieht so aus:

Delphi-Quellcode:

  TJclStrQueue = class(TJclAbstractContainer, IJclStrQueue)
  private
    FCapacity: Integer;
    FElements: TDynStringArray;
    FHead: Integer;
    FTail: Integer;
  protected
    { IJclStrQueue }
    function Contains(const AString: string): Boolean;
    function Dequeue: string;
    function Empty: Boolean;
    procedure Enqueue(const AString: string);
    function Size: Integer;
  public
    constructor Create(ACapacity: Integer = DefaultContainerCapacity);
  end;

gibt es eine einfache Möglichkeit dieses zu benutzen ohne gleich eine neue Klasse zu erzeugen?

Grüsse wo

[HalloDu]

Hallo WoGe,

das erstellen einer Instanz ist nötig, aber sicher nicht das anlegen einer neuen Klasse.

MfG Frederic

[WoGe]

Hi Frederic

Zitat:

das erstellen einer Instanz ist nötig, aber sicher nicht das anlegen einer neuen Klasse.

In einer Instanz davon stehen die als protected deklarierten Methoden leider nicht zur Verfügung.
(Weil Außerhalb der deklarierenden Unit)
Der einzige mir bekannte Weg wäre eine neue Klasse die diese Deklarationen in den Public Teil verlagern.

Viele Grüße
wo

[Dax]

Nur so als Tip: die Interfaces sind nicht nur da, weil sie gut aussehen

[WoGe]

Zitat von Dax:

Nur so als Tip: die Interfaces sind nicht nur da, weil sie gut aussehen

Vielen Dank für den Hinweis. Ich habs halt nicht so mit den Interfaces, mir gings ähnlich wie hier

Meine Lösung sieht nun so aus:

Delphi-Quellcode:

  ...
  public
    { Public-Deklarationen }
    myQueue : IJclStrQueue;
  end;
  ...

procedure TForm7.Button1Click(Sender: TObject);
begin
  myQueue := TJclStrQueue.create;  // Default Size = 16
//  myQueue := TJclStrQueue.create(16);
end;

procedure TForm7.Button2Click(Sender: TObject);
begin
  myQueue.Enqueue('TestNo1');
  myQueue.Enqueue('TestNo2');
  myQueue.Enqueue('TestNo3');
end;

procedure TForm7.Button3Click(Sender: TObject);
begin
  if not myQueue.Empty then memo1.Lines.Add(myQueue.Dequeue);
end;

procedure TForm7.Button4Click(Sender: TObject);
begin
//  FreeAndNil(myQueue); // Unnötig da Interface ?
end;
...

Das funktioniert - so wie ich das erwartet hatte.
Vielen Dank nochmal

Gruß
wo