FastReport - ошибка MasterData1: Error in expression '': Expression expected

@DobryaKaktus · Регистрация: 30.06.2022

Author24 — интернет-сервис помощи студентам

Всем привет,

На форме текстовые компоненты TEdit, содержимое каждого TEdit присваивается в соответствующие Memo в отчёте, посредством переменных.

Присваиваю переменной из отчёта, содержимое TEdit следующим образом:

Delphi

1 2	frxReport1.Variables.Variables['ALogin']:=#39+Edit1.Text+#39; frxreport1.showreport;

Если Edit пустой (а в результате и переменная), то скрываю MasterData1 в котором находится Memo, который в свою очередь соответствует данному Edit.
В событие OnBeforePrint MasterData1 проверяю, если переменная пустая, то скрыть MasterData1:

Delphi

1
2
3

   if <ALogin> = '' then
   MasterData1.Visible := false
   else MasterData1.Visible := true;

В результате выскакивает ошибка:

FastReport - ошибка MasterData1: Error in expression '': Expression expected

п.с. Если поле Edit не пустое, то ошибки нет.

Помогите исправить ошибку, или как корректно проверить пустая ли переменная.
Заранее спасибо за помощь.

@D1973 · 28.06.2024, 04:55

А так?

Delphi

1	MasterData1.Visible := Length(Trim(Edit1.Text)) = 0;

Добавлено через 3 минуты

Сообщение от DobryaKaktus

#39+Edit1.Text+#39;

???

Delphi

1	QuotedStr(Edit1.Text)

@DobryaKaktus · 28.06.2024, 09:33 **[ТС]**

Сообщение от D1973

QuotedStr(Edit1.Text)

Да, спасибо.

Сообщение от D1973

А так?

Пишу в скрипте FR, выдаёт ошибку:

Delphi

1	MasterData1.Visible := Length(Trim(Edit1.Text)) = 0;

Код

The following error(s) have occured:
Script error at 8:61: Undeclared identifier: 'Edit1'

@D1973 · 28.06.2024, 09:46

Сообщение от DobryaKaktus

Пишу в скрипте FR

Ну так об этом сразу и надо писать. Про скрипты FR лично я ничего не знаю.

@DobryaKaktus · 28.06.2024, 09:52 **[ТС]**

Если в отчёте, выбрать объект, у него есть события, и вот в событии OnBeforePrint я и пишу.
Там синтаксис схож с Pascal и Delphi.

@mr-Crocodile · 28.06.2024, 13:48

Сообщение от DobryaKaktus

Пишу в скрипте FR, выдаёт ошибку:

Так ты не там пишешь!

вот там, где у тебя

Сообщение от DobryaKaktus

Delphi

1	frxReport1.Variables.Variables['ALogin']:=#39+Edit1.Text+#39;

вместо этой строчки и напиши так:

Delphi

if Length(Trim(Edit1.Text)) > 0 then 
   frxReport1.Variables.Variables['ALogin'] :=  QuotedStr(Edit1.Text)
else
   frxReport1.Variables.Variables['ALogin'] := '';
 
frxreport1.showreport;

@DobryaKaktus · 28.06.2024, 14:35 **[ТС]**

Сообщение от mr-Crocodile

Так ты не там пишешь!

Понял, спасибо.
Если длина Edit1.Text равна 0, то присваиваем переменной ''.

В самом отчёте проверяю переменную, на наличие в ней текста, если текста нет, то скрываю band MasterData1, но у меня появляется ошибка из первого поста. В самом MasterData1 лежат несколько Memo, один заголовок, второй получает текст из переменной. На видимость бэнда влияет тот Memo, который получает данные из Edit1, т.е. если он пустой, то и бэнд отображать не имеет смысла.
Вот сам код в отчёте:

Delphi

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin              
   if <ALogin> = '' then begin            
   MasterData1.Visible := false;  
   end else MasterData1.Visible := true;                                                                                       
end;

@mr-Crocodile · 01.07.2024, 14:11

Тогда извини, с FastReport я много лет не имел дела.

Подозреваю, что нужно по другому структуру отчёта сделать.

вот, например, если так сделаешь, будет ошибка или нет?

Pascal

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin              
   MasterData1.Visible := false
end;

@northener · 02.07.2024, 01:57

Сообщение от DobryaKaktus

В самом отчёте проверяю переменную, на наличие в ней текста, если текста нет, то скрываю band MasterData1, но у меня появляется ошибка из первого поста. В самом MasterData1 лежат несколько Memo, один заголовок, второй получает текст из переменной. На видимость бэнда влияет тот Memo, который получает данные из Edit1, т.е. если он пустой, то и бэнд отображать не имеет смысла.
Вот сам код в отчёте:

Этот код не "в самом отчете". Это код в вашей программе. Которая знать ничего не знает о переменной в отчете.
Выкиньте на помойку ту самую пременную. Она вам не нужна.

Delphi

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin              
  MasterData1.Visible := Length(Trim(Edit1.Text)) = 0;           
end;

Добавлено через 11 минут

Сообщение от DobryaKaktus

Пишу в скрипте FR, выдаёт ошибку:

Забудьте про скрипт FR. Вы ничего про него не знаете и ничего в нем не пишете. Да он вам и не нужен.
Всё что вам нужно (по крайней мере на этом этапе) это код в Дельфи.

@krapotkin · 02.07.2024, 12:29

ну, в целом автор говорит именно о "коде в отчете" потому что речь про скрипты FR где и проверяются такие вещи
код Delphi тут ни при чем
я давно имел дела с FR но отлаживался он очень неудобно и синтаксис именно выражений не самый очевидный

1. нужно сначала проверить вариант mr-Crocodile
2. если ошибка не пропала, то и искать ее надо не здесь.
меня смущает именно слово Expression. А этот Expression может быть задан в любом компоненте, вроде и в бенде
возможно вы там что-то ввели и сейчас оно пытается спарсить

@northener · 03.07.2024, 00:49

Сообщение от krapotkin

ну, в целом автор говорит именно о "коде в отчете" потому что речь про скрипты FR где и проверяются такие вещи
код Delphi тут ни при чем

Не уверен в этом. И не уверен нужно ли ТС что-то писать в скриптах FR.
В программе на Дельфи эти скрипты, имхо, не нужны. Всё уже сделано в VCL библиотеке FR.

@krapotkin · 03.07.2024, 10:27

конечно, нужны
условный вывод элементов бенда и самих бендов - важная часть многих отчетов

@northener · 04.07.2024, 01:11

Сообщение от krapotkin

условный вывод элементов бенда и самих бендов - важная часть многих отчетов

Ну а скрипты-то тут при чем?
Вот код явно из Дельфи программы:

Delphi

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin              
  MasterData1.Visible := Length(Trim(Edit1.Text)) = 0;           
end;

Этого не достаточно?
Или вы имеете в виду что-то другое?

@krapotkin · 04.07.2024, 08:04

если присмотреться внимательно, это код именно из скрипта - имени класса нет
и именно его я имею в виду

@DobryaKaktus · 04.07.2024, 21:48 **[ТС]**

Сообщение от mr-Crocodile

вот, например, если так сделаешь, будет ошибка или нет?

Да, да, я это проверял, ошибок не было, бенд скрывался.
Возникновение ошибки устранил следующим образом, способом что Вы советовали, да и другими которыми я проверял, но с одним исключением:
Вместо:

Delphi

1 2	else frxReport1.Variables.Variables['ALogin'] := ''; // ошибка

Необходимо:

Delphi

1 2	else frxReport1.Variables.Variables['ALogin'] :=#39+#39; // ошибки нет

Конкретно в моём случае, я вынес "frxReport1.Variables.Variables['ALogin'] :=#39+#39;" вообще за рамки условий, так как посчитал что переменной гарантированно должно присваиваться как минимум пустое значение и без условий. Спасибо.

northener, Наверное отвечать нет смысла, тем более что krapotkin дал исчерпывающий ответ.

mr-Crocodile, krapotkin, northener, D1973, большое спасибо за помощь.

@northener · 05.07.2024, 01:36

Сообщение от krapotkin

если присмотреться внимательно, это код именно из скрипта - имени класса нет
и именно его я имею в виду

Да. Был не прав.

Добавлено через 57 минут
Хотя я по прежнему сомневаюсь в необходимости в Дельфи программе работать со скриптами FR.

@mr-Crocodile · 05.07.2024, 11:26

Сообщение от DobryaKaktus

Delphi

1 2	else frxReport1.Variables.Variables['ALogin'] :=#39+#39; // ошибки нет

Ну тогда проще выкинуть проверку и вместо IF ... else написать просто

Delphi

1	frxReport1.Variables.Variables['ALogin']:=#39+Trim(Edit1.Text)+#39;

@northener пофигист широкого профиля 4753 / 3190 / 860 Регистрация: 15.07.2013 Сообщений: 18,478
	05.07.2024, 01:36	16
	Сообщение от krapotkin если присмотреться внимательно, это код именно из скрипта - имени класса нет и именно его я имею в виду Да. Был не прав. Добавлено через 57 минут Хотя я по прежнему сомневаюсь в необходимости в Дельфи программе работать со скриптами FR. 0

@D1973 Модератор 9630 / 6241 / 2423 Регистрация: 21.01.2014 Сообщений: 26,645 Записей в блоге: 3
	28.06.2024, 09:46	4
	Сообщение от DobryaKaktus Пишу в скрипте FR Ну так об этом сразу и надо писать. Про скрипты FR лично я ничего не знаю. 0

@DobryaKaktus 1 / 1 / 0 Регистрация: 30.06.2022 Сообщений: 58
	28.06.2024, 09:52 [ТС]	5
	Если в отчёте, выбрать объект, у него есть события, и вот в событии OnBeforePrint я и пишу. Там синтаксис схож с Pascal и Delphi. 0

@krapotkin 5868 / 4596 / 1448 Регистрация: 14.04.2014 Сообщений: 20,393 Записей в блоге: 20
	02.07.2024, 12:29	10
	ну, в целом автор говорит именно о "коде в отчете" потому что речь про скрипты FR где и проверяются такие вещи код Delphi тут ни при чем я давно имел дела с FR но отлаживался он очень неудобно и синтаксис именно выражений не самый очевидный 1. нужно сначала проверить вариант mr-Crocodile 2. если ошибка не пропала, то и искать ее надо не здесь. меня смущает именно слово Expression. А этот Expression может быть задан в любом компоненте, вроде и в бенде возможно вы там что-то ввели и сейчас оно пытается спарсить 2

@northener пофигист широкого профиля 4753 / 3190 / 860 Регистрация: 15.07.2013 Сообщений: 18,478
	03.07.2024, 00:49	11
	Сообщение от krapotkin ну, в целом автор говорит именно о "коде в отчете" потому что речь про скрипты FR где и проверяются такие вещи код Delphi тут ни при чем Не уверен в этом. И не уверен нужно ли ТС что-то писать в скриптах FR. В программе на Дельфи эти скрипты, имхо, не нужны. Всё уже сделано в VCL библиотеке FR. 0

@krapotkin 5868 / 4596 / 1448 Регистрация: 14.04.2014 Сообщений: 20,393 Записей в блоге: 20
	03.07.2024, 10:27	12
	конечно, нужны условный вывод элементов бенда и самих бендов - важная часть многих отчетов 1

@krapotkin 5868 / 4596 / 1448 Регистрация: 14.04.2014 Сообщений: 20,393 Записей в блоге: 20
	04.07.2024, 08:04	14
	если присмотреться внимательно, это код именно из скрипта - имени класса нет и именно его я имею в виду 1

FastReport - ошибка MasterData1: Error in expression '': Expression expected

Решение