XProfan

Frank
Abbing

Hi.
Compile Mark Separation

x&=GetSelectedLine(listview&)
DeleteItem(listview&,x&)e>

moreover must but the Listview_Funktionen.inc eingebunden his. Hierin hide itself yet diverse Definitionen and Messages, The in the Help none described are...

07/22/05 ▲

The print-instruction have I only to control installed, the worth changes not and therefore becomes The Loop not leave.

on the side: The Listview_Funktionen.inc becomes in the Hauptprogramm eingebunden, The above-mentioned function in a INC-File carryed out. whom Interpreter disturbing not.

my equipment: Win98SE, Profan 7.5

have You a Statement for?

Greeting Bernd

Bernd
Kaiser

Hello Frank,

my proposition nähert itself the end, the Compiler is geölt and latest Tests walk. and see there, the program runs in a Endlosschleife umher. with the Interpreter hats lovely functions, compiliert goes not.

The Listview_Funktionen.inc is eingebunden.
Compile Mark Separation

WHILE @Neq(GetLines(Listview3&),0)      alte Einträge im Listview3 löschen

    Deleteitem(Listview3&,GetLines(Listview3&))
    print GetLines(Listview3&)

ENDWHI

08/22/05 ▲

Deleteitem(List view3&,Getlines(List view3&)-1) Perhaps?

salvo.

08/22/05 ▲

Frank
Abbing

Hi,

very, the -1 is important. computer catch even with NULL on To count

08/22/05 ▲

Lt. the Listview_Funktionen.inc should the Result TRUE (1) or FALSE (0) his. I sustain with the EXE always The 0 as response. in the Interpretermodus are The Answer correctly (1).

have it too under Win2000 tested: Gleiches Result.

Greeting Bernd

Bernd
Kaiser

[quote:7d4281758b=iF]Deleteitem(List view3&,Getlines(List view3&)-1) Perhaps?

salvo.[/quote:7d4281758b]
No, on it lying it (this time) not.

therefore have I The print-spending installed, to see, whether The Zeilenzahl of Listviews inside the Loop changes. and the power tappt im dunkeln even not.

Interpreter: 2 1 0 (with 3 Lines in the list view)
Compiler: 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ... (even unending)

sees sooner so from, as sustain the List view whom commands to that Zeilenlöschen not. around the To to check on have I the code modifiziert:
Compile Mark Separation

WHILE @Neq(GetLines(Listview3&),0)

    LET test%=Deleteitem(Listview3&,GetLines(Listview3&))
    print test%;
    print GetLines(Listview3&)

ENDWH

I look today forenoon time very - nevertheless should it sooner:
Compile Mark Separation

While Getlines(Listview3&)

    Let Test%=Deleteitem(Listview3&,Getlines(Listview3&)-1)
    Print Test%;
    Print Getlines(Listview3&)

Endwh

heissen.

so habs probiert. both mutants functions by me correctly:
Compile Mark Separation

While Getlines(Listview&)

    Deleteitem(Listview&,Getlines(Listview&)-1)

Endwhil

and
Compile Mark Separation

While Getlines(Listview&)

    Deleteitem(Listview&,0)

Endwhile

vastly faster however is z.B.:
Compile Mark Separation

declare c&
c&=Getlines(Listview&)
showwindow(listview&,0)

Whileloop c&

    Deleteitem(Listview&,0)

Endwhile

showwindow(listview&,1)

or just:
Compile Mark Separation

DeleteAllItems(Listview&)

salvo, iF.

Jörg
Sellmeyer

what too very beautiful is:
Compile Mark Separation

~LockWindowUpdate(ListView&)

WhileLoop GetLines(ListView&)

    Deleteitem(Listview&,0)

Wend

~LockWindowUpdate(0

Evtl. another RePaint or UpDateListView or How that is install.
thereby remaining the ListView visible.

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

Frank
Abbing

and again so similar:
Compile Mark Separation

SendMessage(listview&,11,0,0)  WM_SETREDRAW

Whileloop Getlines(listview&)

    Deleteitem(listview&,0)

Wend

SendMessage(listview&,11,1,0

Bernd
Kaiser

Hello iF,
these Variante functions now.

[quote:34846517f6=iF]
Compile Mark Separation

declare c&
c&=Getlines(Listview&)
showwindow(listview&,0)

Whileloop c&

    Deleteitem(Listview&,0)

Endwhile

showwindow(listview&,1pan>

salvo, iF.[/quote:34846517f6]
sometimes is this Profan voller puzzel, Why running my code in the Interpreter and in the Compiler not?

this was again a new experience for me. now be I with the Program ferig. here already time my Thanks all, The I always time in claim taken have.

Greeting Bernd