如何将这段VC的代码，改为delphi的代码？(100分)

W

ww990

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #1

代码如下：
m_num="123456789012345";
m_str1="*.txt;*.ddt";
m_str1="abc.exe;wxy.exe";
m_str3="edg.exe;fit.exe";

mStart( (CHAR*)(LPCSTR)m_num,
(CHAR*)(LPCSTR)m_str1,
(CHAR*)(LPCSTR)m_str2,
(CHAR*)(LPCSTR)m_str3 )
其中mstart是调用函数
原形为int __stdcall mStart(char* num,char* str1,char* str2,char* str3);

 

S

sunzhanwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #2

function mStart(numchar;str1char;str2char;str3char):integer;stdcall;
procedure mystrfun();
var
m_num:string;
m_str1:string;
m_str2:string;
m_str3:string;
begin
m_num:='123456789012345';
m_str1:='*.txt;*.ddt';
m_str2:='abc.exe;wxy.exe';
m_str3:='edg.exe;fit.exe';
mStart(Pchar(n_num),Pchar(m_str1),Pchar(m_str2),Pchar(str3));
end;
//差不多就是这样的

 

W

ww990

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #3

先试一下，看看可以不。

 

D

dcs_dcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #4

像这种东西，只要知道原始代码的意思，再在delphi找相应的转换函数就

 

W

ww990

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #5

define ABS1 0x12345672
这句怎么转换？

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #6

define 是宏，pascal里没有与之对应的东西.

 

W

ww990

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #7

写错了应该是#define ABS1 0x12345672;

 

金

金卡绣球jk8.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #8

一个常量，int ， 十六进制 $12345672

 

W

ww990

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-28

• #9

多人接受答案了。