[Ericnex]

Учебное задание: Создать UDF-функцию, которая позволяет строковое значение заключить в символы «», например, Спорт – «Спорт». В клиентском приложении осуществить выборку записей из таблицы Оптовый магазин, изменив написание Название магазина.
Сделал все вот так, проверьте на наличие ошибок, пока программа не работает.
Описание DLL:

Код:

library Project2;
 
uses
  SysUtils,
  Classes;
 
function MyDLL (S: string) : String; cdecl; export;
 
{$R *.res}
 
begin
Result:=Format('«%s»',[s]);
end;
exports MyDLL index 1;
begin
end.

Описание DLL на сервере:

Код:

DECLARE EXTERNAL FUNCTION MYY
    CSTRING(20)
RETURNS CSTRING(20)
ENTRY_POINT 'NewDLL' MODULE_NAME 'MyDLL';

Вызов в Delphi:

Код:

procedure TForm1.Button26Click(Sender: TObject);
begin
datamodule2.Q6.Close;
datamodule2.Q6.SQL.Clear;
datamodule2.Q6.SQL.Text:='select Nazvanie from OptMagazin where MYY=s';
datamodule2.Q6.Open;
end;