See your source below (I've added one line, and removed the Label1.Refresh)
--- Piet Henning <[EMAIL PROTECTED]> escreveu: > 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; ---> Application.ProcessMessages; (Added) > 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 > > > > > > __________________________________________________ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ ------------------------ Yahoo! Groups Sponsor --------------------~--> Most low income households are not online. Help bridge the digital divide today! http://us.click.yahoo.com/cd_AJB/QnQLAA/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/
