meolus.de

Delphi-Programm-Details

TLinkedList

Diese Delphi-Unit beinhaltet die Klasse TLinkedList, welche eine einfach verkettete Liste darstellt! Es können folgende Methoden angewandt werden:

constructor Create; //Initialisierung
destructor Destroy; override; //Deinitalisierung
procedure Add(s: string; pos: Integer); //Wert "s" an der Stelle "pos" einfügen
procedure AddEnd(s: string); //Wert "s" am Ende einfügen
procedure AddFirst(s: string); //Wert "s" am Anfang einfügen
procedure Clear; //Liste leeren
function Count: Integer; //Anzahl der Items in der Liste bekommen
procedure DelAll; //Liste leeren
procedure DelAllFromPos(pos: Integer); //Listen Elementen vom "pos"ten Item an löschen
procedure Delete(pos: Integer); //"pos"tes Item löschen
function FIFODequeue: string; //Dequeue für FIFO (= First In First Out)
procedure FIFOEnqueue(s: string); //Enqueue für FIFO
function GetData(pos: Integer): string; //Wert des "pos"ten Items bekommen
function GetItemCount: Integer; //Anzahl der Items der Liste bekommen
function GetPos(s: string): Integer; //Position des Wert "s" finden
function High: Integer; //Höchster Index in der Liste bekommen
function LIFOPop: string; //Pop für LIFO (= Last In First Out)
procedure LIFOPush(s: string); //Push für LIFO
procedure LoadFromFile(Filename: string); //Aus Textdatei "Filename" laden
procedure SaveToFile(Filename: string); //In Textdatei "Filename" speichern
procedure Show(var Memo: TMemo); //Liste in dem TMemo "Memo" anzeigen



Der Startindex der Liste ist 0!

Anwendung:
1.) LinkedList.pas in das Verzeichnis des Programms kopieren
2.) Im Programm unter "uses" (ganz oben) "LinkedList" hinzufügen
3.) Eine Variable von dem Typ: TLinkedList erstellen, createn, verwenden und schließlich wieder destroyen

Beispielprogramme:
Basic-Formelparser 2.0 und Verkettete Listen 0.1

Quellcode-Inhalt:
class, Pointer


Stand: 12.01.2004


Download


Lizenz

Dieses Programm ist Open-Source. Es darf unter den Bedingungen der GNU General Public License der Free Software Foundation weiterverbreitet und/oder modifiziert werden. Falls es modifiziert wird würde es mich freuen, wenn man mir auch eine Kopie davon zukommenlassen könnte.


Copyright © meolus, 2002-2015