[mira]

Сообщение от Breadfan

function txt(a:widestring):widestring; export;stdcall;
begin
if (a[1]='S') then begin
  result:=a+a;
end else begin
  result:=a;
end;

procedure txtfree(a:widestring); export;stdcall;
begin
 setlength(a,0);
end;

вызов:

lib:=loadLibrary('f:\probnik10.dll');
v:variant;
s:widestring;

v:=CallFunction(lib,'txt',1,[(a[j])]);
s=v; 
CallFunction(lib,'txtfree',1,v); // или так CallFunction(lib,'txtfree',1,[v]); 
 

попробуй както так.. у меня фс старый какойто вайдстроки не поддерживает)))) в любом случае без изврата тут не получитса
проверить неначем