Help - I'm tearing my hair out!
I am trying to add a feature that already exists in one of my app's reports to
another three reports.
Although this may distract from the real problem - hear is the code, for the
sake of completeness:
procedure TOwnDet1.ChildBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
CommentsMemo.Lines.Clear;
CommentsMemo.Lines.Add(
QueryDataModule.LogRepQ.FieldByName('Comment').AsString);
if Length(CommentsMemo.Lines.Text) > 2 then
<<<<HERE
ChildBand1.Height := CommentsMemo.Height + 2
else
ChildBand1.Height := 0;
end;
This code compiles fine in the original report unit but I get
"Missing operator or semicolon" and
"Incompatible types"
both on the line indicated when I put the code into another report unit.
In fact the problem is with the Length function because I get the same errors
if the code reads
Length('abcdefg');
Yet I can add the same code into another report unit and again there is no
error.
A possible clue is that the 2 units where no errors occur are located in a
different project subdirectory to the 2 other units where the compiler errors
do occur.
Can anyone suggest what may be going on here. (I would be very grateful - this
was supposed to be a half hour job!)
TIA Mark
--
Forest Production Systems Ltd
Creators of PSLog - A harvesting information system
www.pslog.co.nz
Skype: markhoward
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.10.19/93 - Release Date: 8/09/2005
_______________________________________________
Delphi mailing list
[email protected]
http://ns3.123.co.nz/mailman/listinfo/delphi
