[Ericnex]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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 на сервере:

Код:

1 2 3 4

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

Вызов в Delphi:

Код:

1 2 3 4 5 6 7

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;