Strings ...

[PureBasic4.0]

nochmal zu deinem "if-endif" Problem:

du brauchst diese Zeile

Code: Alles auswählen

If Event = #PB_Event_Gadget

nur einmal aufzurufen. Setze den EndIf einfach vor das Ende der Schleife.
Hier nochmal ein überarbeiteter Code:

Code: Alles auswählen

;coded by DarkSkillu
;Vielen Dank an die Mitglieder des PureBoards für ihre Hilfe
;strings
Hallo$ = " Hallo"
Halllo$ = " Halllo"



If OpenWindow(0, 45, 100, 570, 300, "Texteditor by DarkSkillu ", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget) And CreateGadgetList(WindowID(0))
 
        EditorGadget(1, 30,  90, 510, 180 )
        ButtonGadget(2, 30,  45, 60, 30, "1")
        ButtonGadget(3, 105, 45, 60, 30, "2")
        ButtonGadget(4, 180, 45, 60, 30, "3")
        ButtonGadget(5, 255, 45, 60, 30, "4")
        ButtonGadget(6, 330, 45, 60, 30, "5")
        ButtonGadget(7, 405, 45, 60, 30, "Öffnen")
        ButtonGadget(8, 480, 45, 60, 30, "Speichern")
       
EndIf

Repeat

Event = WindowEvent()
  WindowID = EventWindow()
  GadgetID = EventGadget()
  EventType = EventType()

  If Event = #PB_Event_Gadget
    If GadgetID = 2
      String$ = GetGadgetText(1)
      SetGadgetText(1, String$+Hallo$)
    ElseIf GadgetID = 3
     String$ = GetGadgetText(1)
     SetGadgetText(1, String$+Halllo$)
    ElseIf GadgetID = 7
      speichern$ = GetGadgetText(1)
      OpenFile(0,"text.txt")
      oeffnen$=ReadString(0)
      SetGadgetText(1, oeffnen$)
      CloseFile(0)
   ElseIf GadgetID = 8
     speichern$ = GetGadgetText(1)
      CreateFile(0,"text.txt")
       WriteString(0, speichern$ )
      CloseFile(0)
   EndIf
  EndIf
Until Event = #PB_Event_CloseWindow