Получить строки Tfrmmemoview. Срочно!
Добрый день!
Помогите решить проблему:
Есть отчет, сделанный в FastReport 3.24 и сохраненный в файл. Загружаю его из файла. Разбираю. Анализирую по частям. Дохожу до компонента TFrxMemoView. С помощью Report.Calc(Memo.Text) получаю уже готовый текст. Когда этот текст на 1 строку - все ОК. Но если текст длинный и делится на несколько строк, как увидеть все строки?
Привожу свой код:
Помогите решить проблему:
Есть отчет, сделанный в FastReport 3.24 и сохраненный в файл. Загружаю его из файла. Разбираю. Анализирую по частям. Дохожу до компонента TFrxMemoView. С помощью Report.Calc(Memo.Text) получаю уже готовый текст. Когда этот текст на 1 строку - все ОК. Но если текст длинный и делится на несколько строк, как увидеть все строки?
Привожу свой код:
var i: integer; s: string; Memo: TFrxMemoView;
v: Variant;
Rep: Rep: TFrxReport; fDS: TFrxDBDataSet;
DS: TADODataSet;
...
Rep := TFrxReport.Create(DS.Owner);
fDS := TFrxDBDataSet.Create(DS.Owner);
fDS.Name := 'DATA';
fDS.UserName := 'Источник данных';
fDS.DataSet := DS;
Rep.LoadFromFile(ExtractFilePath(Application.ExeName)+'file');
Rep.DataSets.Add(fDs);
Rep.EnabledDataSets.Add(fDs);
Rep.PrepareReport;
...
for I:=0 to Rep.AllObjects.Count -1 do
begin
if TObject(Rep.AllObjects.Items[i]).ClassType = TfrxMemoView then
begin
Memo := TFrxMemoView(Rep.AllObjects.Items[i]);
if (Memo.Printable) and (trim(Memo.Text) <> '') then
begin
v := Rep.Calc(Memo.Text);
s := '';
for c := 0 to VarArrayDimCount(v) -1 do
s := s + VarToStr(V[c]);
...
end;
end;
end;