Delphi grote lus probleem ;)

[BasieP]

hoe komt het dat als ik thuis in Delphi een programma met een grote lus uivoer hij halverwege met de lus stopt en vastloopt?

ik heb op school ook Delphi en daar doet ie dat niet

o ja, in pascal doet ie het wel!

[Verwijderd]

basiep: Hoe komt het dat als ik thuis in Delphi een programma met een grote lus uivoer hij halverwege met de lus stopt en vastloopt? Ik heb op school ook Delphi en daar doet ie dat niet. O ja, in pascal doet ie het wel!

Gokje: computer op school heeft meer geheugen.

Code?

[dusty]

Zonder de code van je lus kunnen wij je moeilijk helpen.

als ik moet gokken. Ligt het aan je hoeveelheid geheugen , je OS, een slechte versie van delphi of slechte processor.

In andere woorden: Zonder meer gegevens kan het overal aanliggen

[Verwijderd]

misschien helpt het als je

application.ProcessMessages;

af en toe oproept (om de paar seconden).

HTH

[BasieP]

mmm dat meer ram is onzin
* BasieP heeft 256 en op school 128

ik zal ff de lus plaatsen maar ik denk niet dat dat helpt want ik heb het met al mijn lussen grooter dan 200 of zo


var
t:array[1..20] of integer;
v,init:integer;
woord:string;
bestand:textfile;

begin
v:=10;
FOR init:=1 TO 12 do
t[init] := 32;

while v<999 do
begin
v := 10;
repeat
t[v]:= t[v] + 1;
IF t[v] = 92 THEN
begin
t[v] := 33;
v := v - 1;
if v = 0 THEN exit;
t[v] := t[v] + 1;
end;
until t[v] < 91;

woord := CHR(t[1]) + CHR(t[2]) + CHR(t[3]) + CHR(t[4]) + CHR(t[5]) + CHR(t[6]) + CHR(t[7]) + CHR(t[8]) + CHR(t[9]) + CHR(t[10]);

memo1.lines.append (woord);
end;
end;


here u go

[IWriteCode]

Het probleem is dat Memo1 te vol wordt. Wanneer je de regel:

code:

  Memo1.Append

vervangt door:

code:

  Memo1.lines.Strings[0] := woord;

Dan zie je wel dat ie door gaat.

De lus in jouw voorbeeld loopt wel door... alleen wordt het resultaat niet meer getoond in Memo1.

[dusty]

code:

[....]
while v<999 do
begin
v := 10;
[....]
end
[....]

Oneindige lus ?

[BasieP]

Op vrijdag 02 maart 2001 08:56 schreef Jamal het volgende:
Het probleem is dat Memo1 te vol wordt. Wanneer je de regel:

code:

  Memo1.Append

vervangt door:

code:

  Memo1.lines.Strings[0] := woord;

Dan zie je wel dat ie door gaat.

k thanx jamal, het werkt nu. Maar is er dan ook een manier (als ik nu niet te veel vraag) waarmee ik de laatste 50 woorden kan laten zien of zo?
De lus in jouw voorbeeld loopt wel door... alleen wordt het resultaat niet meer getoond in Memo1.

[IWriteCode]

Op vrijdag 02 maart 2001 14:24 schreef basiep het volgende:
k thanx jamal, het werkt nu. Maar is er dan ook een manier (als ik nu niet te veel vraag) waarmee ik de laatste 50 woorden kan laten zien of zo?
De lus in jouw voorbeeld loopt wel door... alleen wordt het resultaat niet meer getoond in Memo1.

Iets van:

code:

  memo1.Lines.Insert(0, 'blabla');

Plaatst de nieuw toegevoegde tekst (blabla) als eerste in de rij.

Met

code:

  while Memo1.Lines.Count > 50 do
    memo1.lines.Delete(50);

Of iets in die richting gooi je de 50e regel weg.

De code wordt wel enorm traag door het toevoegen aan de memo.. het scherm moet elke keer worden gerefreshed. Dit is niet echt efficient.

[BasieP]

k thanks again!

ik zal het ff testen