Question

C#代码改成Delphi？

//请问这段C#代码如何修改成Delphi的
//不要用winexec和ShellExcute，因为我打开这个文件后，还要用这个进程做其他的事情
string strAccrssFilePath = GetShortPathName(Application.StartupPath + "\\mydb.mdb");
Process p = Process.Start("MSACCESS", strAccrssFilePath);
p.WaitForInputIdle(1000);
//do something .......

Answer 1

int HexToInt1(string s)
{
int result;
s=s.ToUpper();
if(s[1]>'9') result=s[1]-'A'+10;
//开始没有太注意，后边总是截取1个长度的字符串来转换，这里就直接用s[1]了。
else result=s[1]-'0';
return result;
}

Object HexToBytes(Object s)
{
object result;
string t,u;//那ss没什么用，我也不知道TStringStream类能干什么。
try{
u=s;
t='';
while(u.Length>0)
{
t=t+(char)HexToInt1(u.SubString(1,1))*16+HexToInt1(u.SubString(2,1));
u=u.SubString(3);//u=u.SubString(3,u.Length-3);
}
result=(object)t;
}
catch(Exception ex)
return result;
}

variant = object
OleVariant = object
copy() = SubString()
delete() = SubString()

如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！