왜 이런 에러가 나는지 모르겠군요
다름과 같이 개략적으로 프로그램의 소스를 적었습니다.
에러 메세지를 보면 위치가 잘못됐다는 말같은데 위치가 틀린가요?
어떻게 해야 되나요?
library version1;
uses
Windows,
...
DBGrids;
{$R *.RES}
var
column : array of array[1..4] of string;
procedure token(index:integer; s:string);
function search(flag:integer):Boolean;
function makestr():string; overload; stdcall;
var
...
begin
...
end;
function makestr() : string; overload; stdcall;
var
...
begin
...
end;
procedure token(index:integer; s:string);
var
...
begin
...
end;
function search(flag:integer): Boolean;
var
...
begin
...
end;
exports
makestr;
begin
end.
감사합니다.
> 왜 이런 에러가 나는지 모르겠군요
>
> 다름과 같이 개략적으로 프로그램의 소스를 적었습니다.
>
> 에러 메세지를 보면 위치가 잘못됐다는 말같은데 위치가 틀린가요?
>
> 어떻게 해야 되나요?
>
>
.dpr 파일은 프로젝트 파일입니다.
여기에 coding 해도 문젠 없지만
좋지못한 습관입니다.
따라서 다음과 같이 하세요
version1.dpr 에
------------------
library version1;
uses
Mylib in 'MyLib.pas';
exports
makestr;
begin
end.
MyLib.Pas 에
------------------
unit MyLib.pas
interface
uses
Windows,
...
DBGrids;
function makestr() : string; overload; stdcall;
{$R *.RES}
var
column : array of array[1..4] of string;
implementation
procedure token(index:integer; s:string);
function search(flag:integer):Boolean;
function makestr() : string;
var
...
begin
...
end;
procedure token(index:integer; s:string);
var
...
begin
...
end;
function search(flag:integer): Boolean;
var
...
begin
...
end;