Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

TList.bas - Die Demo zu TList.bi

Uploader:MitgliedWeazle25
Datum/Zeit:14.03.2009 16:26:50

'+--------------------------------------------------------------+
'| +----------------------------------------------------------+ |
'| |  Projekt:      TList-Class-Demo                          | |
'| |  Version:      0.01                                      | |
'| |  Start:        12.03.2009                                | |
'| |  Autor:        Weazle25                                  | |
'| |  Lizenz:       Open Source                               | |
'| |  Beschreibung: TList ist eine einfache dynamische Liste  | |
'| |                die genauso wie die TList-Klasse von      | |
'| |                Delphi funktioniert.                      | |
'| |                Bei Delphi wurde TList mit Assembler-Code | |
'| |                optimiert. Da ich aber keine Ahnung von   | |
'| |                Assembler habe muss ich mit FB-Bordmitteln| |
'| |                improvisieren wodurch dieses TList mit    | |
'| |                Sicherheit langsamer ist als das TList von| |
'| |                Delphi.                                   | |
'| |                Dies ist die Demo dazu.                   | |
'| +----------------------------------------------------------+ |
'+--------------------------------------------------------------+

#Include "TList.bi"

Dim Liste As TList Ptr = New TList(5)
Dim pVar As UInteger Ptr

'Liste mit Items füllen
Dim I As UInteger
For I = 0 To 20
    pVar = New UInteger
    *pVar = 250000 + I
    Liste->FAdd(pVar)
Next

Screen 17

'Items auslesen und auf den Bildschirm bringen
For I = 0 To Liste->PCount -1
    pVar = Liste->PItem(I)
    Print Str(I), Str(*pVar)
Next

Print "Bitte Taste druecken..."
Sleep

'Alle Items in der Liste löschen
I = 0
While Liste->PCount > 0
    pVar = Liste->PItem(0)
    If pVar <> 0 Then Delete pVar
    Liste->FDelete(0)
    Print "Item " + Str(I) + " geloescht"
    I += 1
Wend

Print "Bitte Taste druecken..."
Sleep

'Jtezt noch die Liste löschen und Programm beenden
Delete Liste

End