Kennt Jemand TQueue?

xman236 · Hält's aus hier Beiträge: 11 Erhaltene Danke: 1

Hat Jemand von TQueue gehoert ??
Ich habe naemlich eine Frage zum dequeue-Procedure. Das Procedure sieht wie unter aus.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TQueue.dequeue;
var
    hilf : TKnoten;
  begin
    if not self.isEmpty then begin
      hilf := self.hatBug.nachfolger;
      self.hatBug.setzeNachfolger(hilf.nachfolger);
      if kenntEnde = hilf then kenntEnde := hatBug;
      hilf.destroy;
    end
  end;

Das Procedure habe ich wie unten angewendet.

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TfrmMain.tiKassierenTimer(Sender: TObject);
begin
hKundeschlange.dequeue;
end;

Eigentlich soll das erste Element der hKundeschlange weggeloescht.Doch es wird auf dem Listbox nicht weggeloescht. Woran liegt das?

Moderiert von Martok: Quote- durch Delphi-Tags ersetzt

jaenicke · Verfasst: Mo 28.02.11 22:24

xman236 hat folgendes geschrieben :

Hat Jemand von TQueue gehoert ??

Die deutschen Bezeichner zeigen deutlich, dass es keine bekannte Klasse sein kann. Das ist nur irgendetwas Kleines von einem Lehrer gebasteltes oder so. ;-)

xman236 hat folgendes geschrieben :

Eigentlich soll das erste Element der hKundeschlange weggeloescht.Doch es wird auf dem Listbox nicht weggeloescht. Woran liegt das?

Das weiß ich nicht. Den Quelltext, in dem du auf die ListBox zugreifst, hast du ja nicht gepostet. :nixweiss:

Wie sieht denn der Code aus, mit dem du den Eintrag aus der ListBox löschen möchtest?

bummi · Verfasst: Mo 28.02.11 22:26

klingt nach
Generics.Collections.TQueue

D2009 +

Entfernt das oberste Element aus der Warteschlange.

Zitat:

Dequeue entfernt das oberste Element aus der Warteschlange und gibt es zurück. Count wird um 1 dekrementiert. Wenn Count bereits 0 ist, wird ein Fehler ausgelöst.

Ein OnNotify-Ereignis zeigt an, dass ein Element aus der Warteschlange entfernt wurde. Dequeue entspricht Extract, außer dass der Ereigniscode angibt, dass ein Element entfernt und nicht extrahiert wurde.

Dequeue arbeitet ähnlich wie Peek, außer dass Dequeue ein Element aus der Warteschlange entfernt.

Dies ist eine O(1)-Operation.

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

jaenicke · Verfasst: Mo 28.02.11 22:28

An den deutschen Bezeichnern (und der geposteten Prozedur aus der Klasse) siehst du ja, dass es nicht die Standard-TQueue ist. ;-)

// EDIT:
Nebenbei gab es TQueue auch vor Delphi 2009 schon in der Unit Contnrs soweit ich mich entsinne.

xman236 · Hält's aus hier Beiträge: 11 Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TfrmMain.tiKassierenTimer(Sender: TObject);
begin
hKundeschlange.dequeue;
end;

Das Procedure ist fuer mich eigentlich der Befehl, der das Element aus der Schlange wegloescht.

Ist das falsch?

Moderiert von Martok: Quote- durch Delphi-Tags ersetzt

jaenicke · Verfasst: Mo 28.02.11 22:30

Aus der Schlange ja, aber was hat das mit der Listbox zu tun? ;-)

xman236 · Hält's aus hier Beiträge: 11 Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TfrmMain.tiKassierenTimer(Sender: TObject);
begin
liKundeschlange.items.delete(0);
end;

Eigentlich war das mein Befehl. Der Lehrer hat mir aber gemeckert, dass ich nicht mit
der Schlange gearbeitet hast, sondern nur ausgetrickt habe. Deswegen habe ich jetzt dieses dequeue-Procedure verwendet.

Was willst du jetzt genau sehen?

Moderiert von Martok: Quote- durch Delphi-Tags ersetzt

jaenicke · Verfasst: Mo 28.02.11 22:35

Naja, aber irgendwo musst du genau diesen Befehl zum Löschen aus der Listbox ja trotzdem benutzen, sonst wird das auch nicht passieren.

Du könntest z.B. nach dem Löschen aus der TQueue die Daten daraus neu in die Listbox einlesen.

xman236 · Hält's aus hier Beiträge: 11 Erhaltene Danke: 1

Eherlich gesagt, verstehe ich das Meckerei von dem Lehrer nicht ganz.
Unsere Aufgabe ich mit der Schlange (TQueue) ,was nach dem Moto : Immer der Reihe nach-
Wer zuerst kommt, ist auch zuerst dran, arbeitet, eine Supermarket-Kasse zu simulieren.

Ich habe eine Kundeschlange eingebaut und habe fuenf Kasse dargestellt. Die Kundeschlange
verteilt sich in die verschiedene Kasse und ihre Ware werden dort kassiert.

Da ich aber mit dem Befehl, liKundeschlange.items.delete(0); gearbeitet habe, koennen mehrere Kunde an den verschiedenen Kassen gleichzeitig weggeloescht werden,
was das Moto der Schlange, Immer der Reihe nach, schaedigt.

Ist das richtig, was der Lehrer hier meckert?

Moderiert von Martok: Quote- durch Delphi-Tags ersetzt

elundril · Verfasst: Mo 28.02.11 22:48

Schwachsinn, da du immer nur den obersten eintrag in der Listbox weglöscht. Das einzige was halt nicht dem Konzept der Warteschlange entspricht ist, das du eben auch den 5 löschen könntest mit dem befehl wenn du als parameter 4 statt 0 übergibst. und das wird vermutlich auch das argument deines Professors gewesen sein.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Bergmann89 · Verfasst: Mo 28.02.11 22:50

Hey,

so wie du das gemcht hast geht das natürlich auch, aber wenn die Aufgabe heißt, das ihr dazu eine TQueue benutzen sollt, dann musst du dich danach richten. Ansonsten wäre das Thema verfehlt - 6 setzten (so nach dem Motto).
Wir mussten sowas auch mal in der Schule machen. Dabei sollten Daten und GUI getrennt werden. Also die wartenden Kunden in der TQueue und eine extra Methode, die die daten (die Kunden) dann in der GUI darstellt. Wenn du das so machst, dann meckert deni Lehrer bestimmt nicht mehr

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme