its bloody stupid actually, but what you have to do is set "any old string" to a var name
 
 
const
 
  tmp:string="any old string";
 
begin
  getaxislabel(LeftAxis, HorizBarSeries, 1,tmp);
end;
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]On Behalf Of Tracey Maule
Sent: Thursday, 10 July 2003 2:08 p.m.
To: Multiple recipients of list delphi
Subject: [DUG]: TChart Set LeftAxis Labels

Hi
 
I have dynamically created a Chart, with 3 HorizBarSeries which are mbStacked.
 
What I now need to figure out is how to set the Left Axis labels to display the contents of another field returned by my query for that record.
 
does anyone know how to do this without affecting the data values?
 
The closest i have come to success so far is:
 
procedure GetAxisLabel(Sender: TChartAxis;
        Series: TChartSeries; ValueIndex: Integer; var LabelText: string);
    begin
        if Sender = FChart.LeftAxis then
            if ValueIndex < 1 then
                LabelText := ''
            else
                LabelText := IBQuery1.FieldByName('system').AsString;
    end;
 
 
  WebActionWhatever;
begin
stuff
GetAxisLabel(LeftAxis, HorizBarSeries, 1,
                                           'any old string');
end;
 
But I keep getting a compile error : constant object cannot be passed as a var parameter.
 
Anyone here know how to acheive this??
 
Tracey
Software Developer / Web Master
Logis
[EMAIL PROTECTED]
(025) 213-1065

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.498 / Virus Database: 297 - Release Date: 8/07/03



______________________________________________________
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.
______________________________________________________

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.498 / Virus Database: 297 - Release Date: 8/07/03

Reply via email to