edit获取字符出错

[iceagebirdxq]

我想把从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.
应该字符传递错误,但不知道是那里错了!
能帮我分析一下吗?
谢谢~!

[yuucyf]

procedure TH_htdc.BitBtn2Click(Sender: TObject);
var
i:string;
begin
i:=trim(edit2.Text);
shellexecute(handle,nil,Pchar(i),nil,nil,sw_shownormal); //此'i'非彼i:=Edit.Text
end;
end.

[ahjoe]

偶偷偷的笑了一下.

[ls_d88]

偶也偷偷的笑了一下下

[iceagebirdxq]

不好意思啊~我是菜鸟~呵呵~刚刚开始学delphi!顺便问一下怎么给分?

[iceagebirdxq]

哦,知道了~!谢谢大家!

[foryour]

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.

[scvzhang]

晕
shellexecute(handle,nil,Pchar(i),nil,nil,sw_shownormal);

[HsWong]

'i'表示字符串'i',而不是字符串变量,应该写成PChar(i)或者PChar(edit2.Text)

[WillSmart]

Pchar('i')指的是字符‘i’,
而不是从文本框获取的路径

[pengxuan]

shellexecute(handle,nil,Pchar('i'),nil,nil,sw_shownormal);
改成
shellexecute(handle,nil,Pchar(i),nil,nil,sw_shownormal);

[simb]

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.
包好！