XProfan

English

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

...gave me something To think especially since Roland tappt im dunkeln Perhaps in the hand having.

naturally bemängelt xpse that here one dispose missing. has it now right or not?

08/23/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

Hm, a very interesting question! I Dispose always, before I a Proc leave, there's indeed nirgendwo a Info, that automatically disposed becomes!

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

08/23/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

The memory won't automatically Disposed, but the Memory-Variable becomes well null, so the the reserved memory sometime time Windows (ex W2k) released becomes. with Win9x can something like angry follow having, if The Proc often called becomes

08/23/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

Yes, it would geschickter The procedure so To write: Compile Mark Separation ! 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	08/23/06 ▲ Vollständiges Quote Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Or of/ one Stringvariablen:
Compile Mark Separation

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:well clear, meant so did i!

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

08/23/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

@Jörg
If I not täusche, wirste but then Z$ as Addr(Z$) transfer must

08/23/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

here exit it again on (XPrfEditClass.prf):
Compile Mark Separation

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$