Сохраненная процедура Сохранение текста в Delphi

Question

Мне нужно создать хранимую процедуру в оракуле из delphi с помощью TQuery. Но SQL.text трудно понять. Есть ли способ сохранить прямой текст в виде pl/SQL без кавычек?

'create or replace '+ 
'function WholeTableRecovery(i_tablname IN varchar) return varchar '+ 
'as '+ 

Возможен ли с помощью файла ресурсов

Заранее спасибо

Answer 1

Поскольку вы используете Delphi 2010 в тегах (я не имею Delphi-здесь, чтобы проверить), удобный метод будет хранящим SQL в отдельных текстовых файлах вместе с RC-файлом, содержащим директивы для компилятора ресурсов.

Файлы RC будет содержать имена ресурса вы хотите использовать вместе с именами файлов, содержащими SQLs вы хотите сохранить. Содержание для примера будет выглядеть следующим образом:

My_First_Speaking_ResourceName RCDATA "MyFirstSQL.sql" 
My_Second_Speaking_ResourceName RCDATA "MySecondSQL.sql" 

Там нет необходимости вызывать BRCC32 непосредственно, если включить ресурс, содержащий RC и результирующий RES:

{$R 'MySQLResources.res' 'resources\MySQLResources.rc'} 

Вы можете обернуть использование TResourceStream для вашего удобства, как показано в примере будет использовать строки, которые вы могли бы также работать с потоком непосредственно, как упомянуто TLama MyQuery.SQL.LoadFromStream(rs);

implementation 

{$R *.dfm} 

{$R 'MySQLResources.res' 'resources\MySQLResources.rc'} 

function LoadSqlResource(resourceName: string): string; 
var 
    rs: TResourceStream; 
    sl: TStringList; 
    s : string; 
begin 
    sl := TStringList.Create; 
    try 
    rs := TResourceStream.Create(hinstance, resourceName, RT_RCDATA); 
    try 
    rs.Position := 0; 
    sl.LoadFromStream(rs); 
    Result := sl.Text; 
    finally 
    rs.Free; 
    end; 
    finally 
    sl.Free; 
    end; 
end; 

procedure CallOneSql(Q:TADOQuery;ResourceName:String); 
begin 
    Q.SQL.Text := LoadSqlResource('My_First_Speaking_ResourceName'); 
    Q.ExecSQL; 
end; 

По телефону CallOneSql(MyQuery,'My_First_Speaking_ResourceName');

Обязательно создайте проект, а не просто скомпилируйте, если вы внесли изменения в RC или файлы SQL.