edit获取字符出错
我想把从edit里面的字符获得路径用来执行文件这个是代码
procedure TH_htdc.BitBtn2Click(Sender: TObject);
var
i:string;
begin
i:=edit2.Text;
shellexecute(handle,nil,Pchar( 'i '),nil,nil,sw_shownormal);
end;
end.
应该字符传递错误,但不知道是那里错了!
能帮我分析一下吗?
谢谢~!

[解决办法]
procedure TH_htdc.BitBtn2Click(Sender: TObject);
var
i:string;
begin
i:=edit2.Text;
shellexecute(handle,nil,Pchar( 'i '),nil,nil,sw_shownormal); //此 'i '非彼i:=Edit.Text
end;
end.
[解决办法]
'i '表示字符串 'i ',而不是字符串变量,应该写成PChar(i)或者PChar(edit2.Text)