Linkedlist und writestring?

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
roherter
Beiträge: 1407
Registriert: 10.04.2005 18:58
Kontaktdaten:

Linkedlist und writestring?

Beitrag von roherter »

Warum geht das nicht:

Code: Alles auswählen

 While NextElement(icondelete())         
              
   WriteString(0,icondelete())
    
 Wend  
Aber das:

Code: Alles auswählen

 While NextElement(icondelete())         
              
  debug icondelete()
    
 Wend  
Weiß jemand rat?
Purebasic 5.0 32bit und 64 bit

I'm back from hell
Benutzeravatar
Green Snake
Beiträge: 1394
Registriert: 22.02.2005 19:08

Beitrag von Green Snake »

Geht bei mir.

Kommt aber natürlich darauf an, dass "icondelete()" wirklich vom Typ "String" ist, und / oder "ResetList()" vergessen wurde...

Edit:
Wobei das Zweite dann auch nicht gehen würde...
-.-"
Benutzeravatar
roherter
Beiträge: 1407
Registriert: 10.04.2005 18:58
Kontaktdaten:

Beitrag von roherter »

Das ist mal das ganze stück wo ich das gerade teste

Code: Alles auswählen

NewList icondelete.s()

    ElseIf EventMenu()=13
      ClearList(icondelete())
      zahl=0
      If OpenFile(0,GetHomeDirectory()+"icons.desk")
        While Eof(0) = 0 
          AddElement(icondelete())
          icondelete()=ReadString(0)
          zahl=zahl+1
        Wend
       
        CloseFile(0)
        Dim list.s(100)
        a=0
        Debug "str-"+Str(CountList(icondelete()))
        erg= OpenFile(1,"test.txt")
        If erg
          ResetList(icondelete())
          
          
          While NextElement(icondelete())

         
           
         
           
            WriteString(1,list.s)
           
         
   Wend  
        CloseFile(1)
        EndIf
        ;--
      EndIf
Purebasic 5.0 32bit und 64 bit

I'm back from hell
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Code: Alles auswählen

NewList icondelete.s()

    ElseIf EventMenu()=13 
Was ist das?

Code: Alles auswählen

Dim list.s(100) 
...
WriteString(1,list.s)
Also, das kann nicht gehen, weil bei list.s das element nicht angegeben ist.

Ausserdem biste lange genug hier im Board, um Schnippsel zu Posten, die
man Testen kann. Schnippsel die irgendwo mit ElseIf
anfangen sind meist sinnlos und eine Zumutung für die Helfer, die da erst was
lauffähiges erstellen müssen

Ausserdem hat der erste Schnippsel mit dem zweiten nicht viel
gemeinsam. Wie soll so der Fehler ermittelt werden, wenn Du falschen
unvollständigen Code postest :freak:
Zuletzt geändert von ts-soft am 20.06.2006 22:38, insgesamt 1-mal geändert.
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Benutzeravatar
roherter
Beiträge: 1407
Registriert: 10.04.2005 18:58
Kontaktdaten:

Beitrag von roherter »

Hast recht sorry oh man bin ich blöd selbst hammer aufm kopf haue:lol: Danke dir ts-soft :allright:

edit:Es geht jetzt. :allright: :allright:

@Ts-Soft : War für die Deskbar um einzelne Icons zu löschen habe mich da verwurschtelt aber jetzt gehts man kann jetzt einzelne icons löschen stelle es morgen auf purearea rein :D
Purebasic 5.0 32bit und 64 bit

I'm back from hell
Antworten