PureBoard

Verfasst: **11.02.2005 17:40**

ich habe jetzt mal ne frage,dazu,und zwar wolt ich keine änderungsprüfung einbauen sondern des alles ganz anderst machen,und es funktioniert,auch wenns es etwas "zu lang geschrieben" ist

und zwar sieht der schnipsel so aus

Code: Alles auswählen

  ExamineDirectory(#PB_Any,Verzeichnis$,"*.*")
   FileType = NextDirectoryEntry()
   If FileType
    FileName$ = DirectoryEntryName()
     If FileType = 2 ; Directory type
      FileName$ = "(Ordner) "+FileName$  
     EndIf
   EndIf
   Repeat
    FileType = NextDirectoryEntry()
    If FileType
     FileName$ = DirectoryEntryName()
     If FileType = 2 ; Directory type
      FileName$ = "(DIR) "+FileName$  
     EndIf
      X+1
      If X=2
       Filename2$=Filename$
      ElseIf X=3
       Filename3$=Filename$
      EndIf
    EndIf
   Until FileType = 0 
    Menu=2
   Case 2
    StartDrawing(ScreenOutput())
     FrontColor(128,128,128)
     DrawingMode(1)
     Locate (10,15)
     DrawText(Filename$)
     Locate (10,30)
     DrawText(Filename2$)
     Locate (10,45)
     DrawText(Filename3$)
    StopDrawing()
    DisplayTransparentSprite(#Maus,MouseX(),MouseY())
  EndSelect

in case eins schreibe ich

Code: Alles auswählen

      X+1
      If X=2
       Filename2$=Filename$
      ElseIf X=3
       Filename3$=Filename$
      EndIf

aber das ist extrem umständlich,da das ja noch bis 1000 weitergehen könnte weiß jemand wie ich das besser schreiben könnte?

in case 2 schreibe ich ja dieses hier

Code: Alles auswählen

     Locate (10,15)
     DrawText(Filename$)
     Locate (10,30)
     DrawText(Filename2$)
     Locate (10,45)
     DrawText(Filename3$)

des müsste ja dann auch geändert werden,da dies ja sonst auch bis 1000 so weitergehen würde...

im endeffekt erfüllt es ja seinen sinn und zweck,ist aber irgendwie zu groß am ende,kann mir da einer helfen?

PureBoard

Y=10 I Locate(10,Y+10) , trotzdem wird alles überschrieben