|
10.06.2003, 08:42
#32180119
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
|
var scripttext:string;
....
scripttext :='select s.tab_numb,s.famname,s.name,s.otche,p.podrazd,d.dolgn,o.oblast,r.rajon,s.city,s.street,s.house,s.phone from spr_sotr s,spr_oblast o,spr_rajon r,spr_podrazd p,spr_dolgn d where s.rajon=r.kod and r.oblast=o.oblast and s.dolgn=d.kod and d.podrazd=p.kod';
Затем переменная scripttext используется как значение входного праметра в процедуре:
CreateMDIChild(item.Name+'_',item.caption, scripttext);
Описание данной процедуры:
procedure TMainForm.CreateMDIChild(const Name_: string; const caption_:string; var script:string);
var
Child: TMDIChild;
I,a,b: Integer;
begin
{ create a new MDI child window }
a:=0;
for I := MDIChildCount-1 downto 0 do
if MDIChildren .name=name_ then a:=a+1;
if a>0 then showmessage('Такой справочник уже открыт');
if a=0 then
begin
Child := TMDIChild.Create(Application);
Child.name := Name_;
Child.Caption := caption_;
Child.pFIBDataset1.selectSQL.clear;
Child.pFIBDataset1.selectSQL.text:=script;
Child.pFIBDataset1.updateSQL.text:=script;
Child.pFIBDataset1.refreshSQL.text:=script;
Child.pFIBDataset1.open;
for i:=0 to child.DBGridEh1.Columns.Count-1 do
child.dbgrideh1.Columns.title.caption:=var_massiv;
b:=0;
for i:=0 to child.DBGridEh1.Columns.Count-1 do
b:=b+ child.DBGridEh1.Columns.items.Width;
child.ClientWidth:=b+30;
end;
end;
Я так поняла что литерал у меня "длинный".
Но если я ввожу еще 2 переменных s1 и s2, первой присваиваю первую часть строки, второй - вторую, а затем
scripttext:=s1+s2, то прикомпиляции ошибки не выдает, но при попытке открытия соответствующей дочерней формы выдается ошибка типа
numeric overflow or string truncation.
Вот так.
|
|
|
