Kleines Problem beim Textgadget!
Verfasst: 14.09.2005 15:44
Ich habe folgendes problem:
Wenn ich diese Datei über mein Menü aufrufe, liest er die Datei "fav.dat" aus, und schreibt mir den inhalt in mein TextGadget!
Wenn ich aber nocheinmal diese Dateiaufrufe, schreibt er mir nocheinmal denn Inhalt darunter und immer so weiter!
Meine Frage wie kann man das verhindern?
Code: Alles auswählen
If EventMenuID()=34
d=ReadFile(1, "vehicle\fav.dat")
If d
While Eof(1)=0
fav$ = fav$+ReadString()+Chr(13)+ Chr(10)
Wend
CloseFile(1)
ImageGadget(2, 450,150,100,83,UseImage(30),#PB_Image_Border)
SetGadgetText(1,"")
SetGadgetText(1, fav$)
Else
MessageRequester("Fehler","Datei nicht gefunden!.",#MB_ICONERROR)
EndIf
EndIf
Wenn ich aber nocheinmal diese Dateiaufrufe, schreibt er mir nocheinmal denn Inhalt darunter und immer so weiter!
Meine Frage wie kann man das verhindern?
