Профессионалы отзовитесь, помогите решить проблему

coder-igor

Есть masterdata (на нем Мемо), ниже под Masterdata ноходится Child

вопрос: как сделать если в Мемо например 400 символов или меньше, то Child не отображается, если больше 400, то отображается в репорте???????

coder-igor

делаю так:

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if Length(Memo1.Lines.text) > 390 then
MasterData1.Child:=nil; (или Child1.Visivle:=false)
end;

aseroff

Ставим свойства компонентов:
1) MasterData1.Child = Child1,
2) Child1.Visible = false;

В коде пишем (код на C++Script, переведешь в PascalScript):

bool bFlag;	// объявляем глобальный флаг смены свойства видимости Child1
  	// для того, чтобы менять это свойство единажды

{  	// выставляем начальное значение флага
  bFlag = false;
}

void MasterData1OnAfterCalcHeight(TfrxComponent Sender)
{
  if ((<Line> > 400) && (bFlag == false))	// <Line> - стандартное свойство FR
          	// сравниваем с нужным числом
  {
    ShowMessage ("больше");    	// можно убрать (для показухи)
    Child1.Visible = true;    	// делаем потомка доступным
    bFlag = true;      	// меняем состояние флага,
          	// чтобы не выполнять этот блок n раз
  }
}

Вот собственно и все.
После записи в MasterData1 под номером 400 начнет отображаться Cild1

coder-igor

спасибо за помошь, но чета у меня не работает

если можна файлик с репортом через файлообменник скинь пожалста.

вот так я сделал, может че не так???????

var
 bFlag: Boolean;

procedure Child5OnAfterCalcHeight(Sender: TfrxComponent);
begin
 if ((<Line> > 400) and (bFlag = false))  then
   begin
     ShowMessage ('áîëüøå');
    Child2.Visible:=true;
    bFlag:=true;
   end;
end;

begin
 bFlag:=false;
end.

coder-igor

ВСЕ разобрался



огромное спасибо за помощь



и спасибо что есть такие люди, которые всегда рады помочь


вместо
if ((<Line> > 400) and (bFlag = false)) then
сделал
if ((Length(Memo10.Lines.Text) > 400) and (bFlag = false)) then

aseroff

Странно, что у тебя <Line> не работает. Эта переменная FastReport есть в Variables, может, она в PascalScript не в "<>" таких кавычках вызвывается... Попробуй написать

Get("Line") //C++Script
Get('Line') //PascalScript

вместо

<Line>

или "[]" вместо "<>"

У меня <Line> работает, и Get("...") работает.

PS. В паскале не обязательна куча скобок в условиях

Lex

aseroff написал:

Странно, что у тебя <Line> не работает.

ему она не нужна

aseroff написал:

как сделать если в Мемо например 400 символов

aseroff

Понятно )

Меня просто переклинило, и я, уже по привычке, посчитал количество строк, а не символов )))))

<Line>, собственно, здесь и не должна работать - это количество Memo строк.