I solved it by writing the value of i to a label and refresh the label.
Code is below: (note it is simple to test the concept at this point)
procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c,d: string;
i,ia,NotSame:integer;
begin
Randomize;
for i:= 0 to StrToInt(Edit1.Text) do //edit1.text is the number of numbers to
generate
begin
NotSame:=0;
a:=intTostr(random(899)+100);
b:=intTostr(random(8999)+1000);
c:=intTostr(random(8999)+1000);
d:=a+' AA '+b+' RG '+c;
for ia := 0 to Listbox1.Items.Count-1 do
begin
if d = Listbox1.Items[ia] then NotSame:=1;
end;
if NotSame = 0 then Listbox1.Items.Add(d) ;
Label1.Caption:=IntToStr(Listbox1.Items.Count);
Label1.Refresh;
end; // end i
end;
----- Original Message -----
From: "CM" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, September 27, 2005 11:16 PM
Subject: RE: [delphi-en] for i :=0 to 10000 freezing
...can you post the code?
_____
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf
Of Piet Henning
Sent: Tuesday, September 27, 2005 2:06 PM
To: Delphi-en
Subject: [delphi-en] for i :=0 to 10000 freezing
I'm running a loop to generate a series of number and if the loop max value
is more than 800 or so the loop hangs.
Can I solve this. Delphi6.
Thanks
Piet
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
SPONSORED LINKS
Basic
<http://groups.yahoo.com/gads?t=ms&k=Basic+programming+language&w1=Basic+pro
gramming+language&w2=C+programming+language&w3=Computer+programming+language
s&w4=The+c+programming+language&w5=C+++programming+language&w6=List+of+progr
amming+languages&c=6&s=193&.sig=aLlETYEcZKW67uFZnuZPPw> programming language
C
<http://groups.yahoo.com/gads?t=ms&k=C+programming+language&w1=Basic+program
ming+language&w2=C+programming+language&w3=Computer+programming+languages&w4
=The+c+programming+language&w5=C+++programming+language&w6=List+of+programmi
ng+languages&c=6&s=193&.sig=n4wEVXDpIBKogo8e_G77cw> programming language
Computer
<http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=Basic
+programming+language&w2=C+programming+language&w3=Computer+programming+lang
uages&w4=The+c+programming+language&w5=C+++programming+language&w6=List+of+p
rogramming+languages&c=6&s=193&.sig=KFl1CeQi7jrKmsK4WD6ygQ> programming
languages
The
<http://groups.yahoo.com/gads?t=ms&k=The+c+programming+language&w1=Basic+pro
gramming+language&w2=C+programming+language&w3=Computer+programming+language
s&w4=The+c+programming+language&w5=C+++programming+language&w6=List+of+progr
amming+languages&c=6&s=193&.sig=lU9w7-4UlGPB4LjDy84c2Q> c programming
language C
<http://groups.yahoo.com/gads?t=ms&k=C+++programming+language&w1=Basic+progr
amming+language&w2=C+programming+language&w3=Computer+programming+languages&
w4=The+c+programming+language&w5=C+++programming+language&w6=List+of+program
ming+languages&c=6&s=193&.sig=dtKotXT1Ne2N9AO_aEbPFQ> programming language
List
<http://groups.yahoo.com/gads?t=ms&k=List+of+programming+languages&w1=Basic+
programming+language&w2=C+programming+language&w3=Computer+programming+langu
ages&w4=The+c+programming+language&w5=C+++programming+language&w6=List+of+pr
ogramming+languages&c=6&s=193&.sig=0shmxLBHwrZWcSjC3QvZAA> of programming
languages
_____
YAHOO! GROUPS LINKS
* Visit your group "delphi-en
<http://groups.yahoo.com/group/delphi-en> " on the web.
* To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service
<http://docs.yahoo.com/info/terms/> .
_____
[Non-text portions of this message have been removed]
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
------------------------ Yahoo! Groups Sponsor --------------------~-->
Fair play? Video games influencing politics. Click and talk back!
http://us.click.yahoo.com/T8sf5C/tzNLAA/TtwFAA/i7folB/TM
--------------------------------------------------------------------~->
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
