I don't know this component, but most use zero based counts, not 1 based.
Would this work?
for i_count := 2 to Form1.F1Book1.NumSheets - 1 do
begin
  form1.F1Book1.Sheet := i_count;
  form1.F1Book1.SetActiveCell(1,1);
  form1.F1Book1.Text := s_variable;
end;

Dave.

-----Original Message-----
From: Chris Veale [mailto:[EMAIL PROTECTED]]
Sent: Thursday, 26 September 2002 2:22 p.m.
To: Multiple recipients of list delphi
Subject: [DUG]: formula one crashing through loop - was what does this
error mean


Hi.

I am using a formula one component that has multiple sheets
on the first I have a dropdown box that when changed I want to 
update cells in the other sheets with the selection.

doesnt sound too hard does it?

when I put this into practice the application dies with an 
access violation in user32.dll

I can update cells in the current sheet no problem but when I 
try to do the following the error occurs:

for i_count := 3 to Form1.F1Book1.NumSheets do
begin
  form1.F1Book1.Sheet := i_count;
  form1.F1Book1.SetActiveCell(1,1);
  form1.F1Book1.Text := s_variable;
end;

now the error doesnt happen here (inside f1book1objectchange 
procedure) it happens when that procedure exits so the above 
code executes fine until the procedure exits.

if I take out the sheet assignment and just update the current 
sheet, it works fine and doesnt die on me, as follows:

  form1.F1Book1.SetActiveCell(1,1);
  form1.F1Book1.Text := s_variable;

anyone got any ideas?

Cheers

Chris Veale

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.391 / Virus Database: 222 - Release Date: 19/09/02
 



______________________________________________________
The contents of this e-mail are privileged and/or confidential to the
named recipient and are not to be used by any other person and/or
organisation. If you have received this e-mail in error, please notify 
the sender and delete all material pertaining to this e-mail.
______________________________________________________
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/

Reply via email to