- Этот тип отсутструет (переименован) в FR3 TfrxDBLookupControl - TfrxDBLookupComboBox
- Параметры IBX SQL-запросов - не переносятся. Вместо списка параметров - виден только один.
- Столбцы кросс-отчета не переносятся.
- Стоит автоматически отбросить все вхождения "DialogForm."
- ...
Для frxMemo.Memo.Text имеет смысл выполнить следующие замены:
s:=frxMemo.Memo.Text;
s:=StringReplace(s,'[DialogForm.','[<',[rfReplaceAll,rfIgnoreCase]);
s:=StringReplace(s,'"]','">]',[rfReplaceAll,rfIgnoreCase]);
s:=StringReplace(s,'if(','IIF(',[rfReplaceAll,rfIgnoreCase]);
s:=ClearQuot(frxMemo.Memo.Text);
frxMemo.Memo.Text:=s;
function ClearQuot(s:string):string;
var i,l:integer;
qu:boolean;
Begin
result:=s;
l:=0;
qu:=false;
for i:=length(result) downto 1 do Begin
if result[i]=#39 then qu:=NOT qu;
if qu then continue;
if result[i]=']' then Begin
inc(l);
if l>1 then result[i]:=' ';
End;
if result[i]='[' then Begin
dec(l);
if l>0 then result[i]:=' ';
End;
End;
End;
Для параметров SQL-запроса:
if pos('[',paramvalue)=0 then
frxIBQuery.Params[k].Value:=paramvalue
else Begin
paramvalue:=StringReplace(paramvalue,'[DialogForm.','[<',[rfReplaceAll,rfIgnoreCase]);
paramvalue:=StringReplace(paramvalue,'"]','">]',[rfReplaceAll,rfIgnoreCase]);
paramvalue:=StringReplace(paramvalue,'if(','IIF(',[rfReplaceAll,rfIgnoreCase]);
paramvalue:=StringReplace(paramvalue,'[','',[rfReplaceAll,rfIgnoreCase]);
paramvalue:=StringReplace(paramvalue,']','',[rfReplaceAll,rfIgnoreCase]);
if pos('.DATE',UpperCase(paramvalue))>0 then
paramvalue:='DateToStr('+paramvalue+')';
frxIBQuery.Params[k].Expression:=paramvalue;
frxIBQuery.Params[k].DataType:=ftString;
Комментарии
обьекты даже из бэндов вываливаются
- Этот тип отсутструет (переименован) в FR3 TfrxDBLookupControl - TfrxDBLookupComboBox
- Параметры IBX SQL-запросов - не переносятся. Вместо списка параметров - виден только один.
- Столбцы кросс-отчета не переносятся.
- Стоит автоматически отбросить все вхождения "DialogForm."
- ...
Для frxMemo.Memo.Text имеет смысл выполнить следующие замены:
Для параметров SQL-запроса:
P.S. Ойчень хочется поковырять исходники конвертера...