XProfan

Español

Diese Proc...
Kompilieren Marca Separación

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

...gab me algo a denken especialmente Roland ellos tal vez en el Hand hatte.

Natürlich bemängelt xpse que aquí una disponer fehlt. Sombrero él nun bastante oder no?

23.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Hm, una muy interessante Cuestión! Yo Disponer siempre, bevor Yo una Proc verlasse, lo son en efecto nirgendwo una Referencia, dass automáticamente disposed se!

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 Zitat

Absatzweise Cita Zeilenweise Cita

Der Speicher no es automáticamente Disposed, aber el Bereichsvariable probablemente ungültig, así el el reservierte Speicher irgendwann tiempos de Windows (de W2K) freigegeben se. En Win9x kann algo como böse folgen haben, si la Proc öfter aufgerufen se

23.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Sí, lo wäre geschickter el Procedimiento así a escribir: Kompilieren Marca Separación ! 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 Zitat Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Oder con uno Stringvariablen:
Kompilieren Marca Separación

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 klar, meinte Yo auch!

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

23.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Jörg
Wenn Yo mich no täusche, wirste aber entonces Z$ como Addr(Z$) transferencia necesario

23.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Hier tritt lo otra vez en (XPrfEditClass.prf):
Kompilieren Marca Separación

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$