Передача данных из сохраненного отчета FastReport в Delphi

[HIC]

Передаю отчету данные через переменные, сохраняю. Теперь хочу, чтобы при открытии *.fp3 данные из Memo-полей передавались обратно TEdit-ам, на форме Delphi
Обращаюсь к сохраненному отчету (надеюсь правильно):

if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then 
  begin 
   frxReport1.Clear; 
   frxReport1.PreviewPages.LoadFromFile(OpenDialog1.FileName, True); 
   frxReport1.ReportOptions.Name := OpenDialog1.FileName;  
   frxReport1.PrepareReport; 
   
   Edit1.Text := ...; 

  end;

А вот что писать вместо многоточия, чтобы передать Edit1 значение Memo, не знаю. Подскажите.

[Баламут]

Примерно так

uses ...frxClass;

var
  Memo:TfrxMemoView;

frxReport1.FindObject('Memo1') as TfrxMemoView;
Edit1.Text := Memo.Text;

[Serge_Bliznykov]

ну, 1) надо бы присвоить Memo
Memo := frxReport1.FindObject('Memo4') as TfrxMemoView;
2) я бы обошёлся без дополнительно объекта,
как то так:
Edit1.Text := (frxReport1.FindObject('Memo4') as TfrxMemoView).Text;

[Баламут]

Угу... Поспешил немного
Но вот со вторым утверждением все же не соглашусь. Правильнее будет все-таки так:

Memo := frxReport1.FindObject('Memo4') as TfrxMemoView;
if Assigned(Memo) then Edit1.Text := Memo.Text;

Проверка лишней не будет.

[HIC]

Блин... Ругается:

Access violation at address 00574728 in module 'TTN.exe'. Read of address 000001EC.

[Баламут]

А в строке
Memo := frxReport1.FindObject('Memo4') as TfrxMemoView;
заменил на название своего Memo?

[HIC]

))) естественно. Может только в сохраненном отчете имена объектов меняются. Пропарсил *.fp3, нашел <m304 u="Вася"/>, пробовал и m304 и memo304, никак. На то имя которое я дал memo-полю, trucker1, тоже не отзывается. Посоветовали тут на другом форуме:

Посмотри frxReport1.AllObjects.
Только если у тебя в отчете после построения твой объект продублировался, тебе же нужно и Edit дублировать.

Только, как не извращался, так ума и не хватило просмотреть этот frxReport1.AllObjects, и что имеется под дублированием тоже не понял.

И еще, когда ставлю точку после frxReport1, то делфя в выпадающем списке команд не содержит таких, как FindObject или FindComponent. А вот если frxReport1 поставить в начале строки (перед Edit1.Text), то команды присутствуют.

[Баламут]

Даже не знаю что и сказать... Проверил, работает. На всякий случай открыл блокнотом сам файл отчета. Там нашел строку <TfrxMemoView Name="Memo1". Т.е. то, что нужно... Выложи отчет сюда. И попробуй такой вот код... Кривоватый, но что-то показывает.

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
try
for i := 0 to frxReport1.AllObjects.Count - 1 do
begin
Memo1.Lines.Add(TfrxMemoView(frxReport1.AllObjects[i]).Name);
end;
finally

end;
end;

[HIC]

Мож у меня где-то еще в коде косяк:

procedure Form1.OpenExecute(Sender: TObject);
begin
 if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then
  begin
   frxReport1.Clear;
   frxReport1.PreviewPages.LoadFromFile(OpenDialog1.FileName, True);
   frxReport1.ReportOptions.Name := OpenDialog1.FileName;
   frxReport1.PrepareReport;
   Edit1.Text := (Report.FindObject('Memo1') as TfrxMemoView).Text;
  end;
end;

Версия фаста, кстати, 4.2.22. Пример отчета в прикрепленном архиве

[HIC]

Нашел решение. Уже где-то близко, но все же не то, немного

procedure TForm1.Button1Click(Sender: TObject); 
var 
 tmp:TfrxComponent; 
begin
 if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then
  begin 
   frxReport1.PreviewPages.LoadFromFile(OpenDialog1.FileName, true); 
   if frxReport1.PrepareReport() then 
    begin 
     tmp:=frxReport1.FindObject('Memo1'); 
     if tmp <> nil then 
      Edit1.Text:=Trim(TfrxMemoView(tmp).Text); 
    end;
  end; 
end;

Правда вставляет зараза имя переменной: [Variable1]
В принципе все правильно, т.к. если пропарсить *.fp3, то видим такую ерундень <TfrxMemoView Name="Memo1" ... Text="[Variable1]"/>.
А вот как получить то, что присваивалось Variable1?