Witam,
Korzystam z Lazarusa i bibliotek sferyGT.
Mam problem z wczytaniem dokumentu w przypadku gdy nr dokumentu przekazuję jako zmienną typu string.
procedure TForm.Subiekt;
var
oFs,oSubGT,oGT: OLEVariant;
s:string;
begin
...
// kod uruchomienia sfery
...
s:='FS 1/MAG/2017';
oFs:=oSubGT.Dokumenty.Wczytaj(s);
oFs.wyswietl;
end;
otrzymuję błąd
Project raised exception class 'External: ?'.
Przetestowałem ten sam kod w Delphi
Project raised exception class EOleException with message 'Niedopasowanie typu'.
Natomiast jeżeli przekażę nr dokumentu bezpośrednio, dokument otwiera się prawidłowo.
procedure TForm.Subiekt;
var
oFs,oSubGT,oGT: OLEVariant;
begin
...
// kod uruchomienia sfery
...
oFs:=oSubGT.Dokumenty.Wczytaj('FS 1/MAG/2017');
oFs.wyswietl;
end;