F
fbzz88
Unregistered / Unconfirmed
GUEST, unregistred user!
我都照书写的代码
library
uses
这前面是标准的dll文件开头
function InStr(SourceStrchar;Ch:Char):integer;export;
var
Len,i:integer;
begin
Len:=strlen(SourceStr);
for i:=0 to len-1 do
if SourceStr=Ch then
begin
Result:=i;
Exit;
end;
Result:=-1;
end;
exports
InStr;
begin
end.
library
uses
这前面是标准的dll文件开头
function InStr(SourceStrchar;Ch:Char):integer;export;
var
Len,i:integer;
begin
Len:=strlen(SourceStr);
for i:=0 to len-1 do
if SourceStr=Ch then
begin
Result:=i;
Exit;
end;
Result:=-1;
end;
exports
InStr;
begin
end.