XProfan

Français

cet Proc...
Kompilieren Marque Séparation

Proc XSciProf.GetLine$

    Parameters Nr%
    Declare Len%, Zeile#
    Dim Zeile#,32767
    Len% = .SciMessage(~SCI_GETLINE, Nr%, Zeile#)
    Return Translate$(Char$(Zeile#,0,Len%-1),"	",Space$(XSciProf.Tab%))

E

...donnais mir quelque chose trop penser zumal Roland vous peut-être dans qui main hatte.

Bien sûr bemängelt xpse que voici un dispose fehlt. Hat il eh bien droite ou bien pas?

23.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

Hm, une très interessante Frage! je Dispose toujours, bevor je une Proc verlasse, il y a oui aussi nirgendwo une Hinweis, dass automatisch disposed wird!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

23.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

qui grenier wird pas automatisch Disposed, mais qui Bereichsvariable wird wohl ungültig, so cela qui reservierte grenier irgendwann la fois de Windows (ab W2K) freigegeben wird. chez Win9x peux quelque chose comme böse folgen avons, si le Proc öfter aufgerufen wird

23.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

oui, es wäre geschickter qui Procédure so trop écrivons: Kompilieren Marque Séparation ! Proc Xsciprof.getline$ Parameters Nr%, Zeile$ Declare Len%, Zeile# Dim Zeile#,32767 Len% = .Scimessage(~Sci_getline, Nr%, Zeile#) Zeile$ = Translate$(Char$(Zeile#,0,Len%-1)," ",Space$(Xsciprof.tab%)) Dispose Zeile# Return Zeile$
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4	23.08.2006 ▲ Vollständiges citation Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

ou bien avec einer Stringvariablen:
Kompilieren Marque Séparation

Proc Xsciprof.getline$

    Parameters Nr%, Zeile$
    Declare Len%, Z$
    Z$ = MkStr$("z",32767)
    Len% = .Scimessage(~Sci_getline, Nr%, Addr(Z$))
    Return  Translate$(Left$(Z$,Len%-1),"	",Space$(Xsciprof.tab%))

E

@TS-Soft:Na bien sûr, meinte je aussi!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

23.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@Jörg
si je mich pas täusche, volonté mais ensuite Z$ comme Addr(Z$) transfert doit

23.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

ici tritt es nochmal sur (XPrfEditClass.prf):
Kompilieren Marque Séparation

Proc XSciProf.GetWord

    Declare Wort$, Wort#, pos&, wStart&, wEnde&
    pos&  = .SciMessage(~SCI_GETCURRENTPOS,0,0)
    wStart& = .SciMessage(~SCI_WordStartPosition, pos&, 1)
    wEnde&  = .SciMessage(~SCI_WordEndPosition, pos&, 1)
    Dim Wort#,wEnde& - wStart& + 1
    .SciMessage(~SCI_SetSelectionStart,wStart&,0)
    .SciMessage(~SCI_SetSelectionEnd,  wEnde&, 0)
    .SciMessage(~SCI_GetSelText, 0, Wort#)
    Wort$ = String$(Wort#,0)
    Return Wort$