我建的是一个存字符的库,照着书上写的好像让我建unit1,我不知道我是根据dll向导建的原型,然欧编译,出现上述错误其它的工作我没有做,到底错在那里,代码如下
library Proj;
uses
SysUtils,
Classes;{$R *.RES}
function InStr(SourceStr: PChar;Ch: Char): Integer; export;
varLen,i: Integer;
begin
Len := strlen(SourceStr);for i := 0 to Len-1 doif SourceStr[i] = ch then begin
Result := i;Exit;end;Result := -1;
end;exportsInstr Index 1 name 'MyInStr' resident;
begin
end.
如果建了uint,该如何处理怎么说没有程序调用?/
library Proj;
uses
SysUtils,
Classes;{$R *.RES}
function InStr(SourceStr: PChar;Ch: Char): Integer; export;
varLen,i: Integer;
begin
Len := strlen(SourceStr);for i := 0 to Len-1 doif SourceStr[i] = ch then begin
Result := i;Exit;end;Result := -1;
end;exportsInstr Index 1 name 'MyInStr' resident;
begin
end.
如果建了uint,该如何处理怎么说没有程序调用?/
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货