如何取得OpenDialog的文件名,条件是不要绝对路径名,不要文件夹名,不要扩展名。只要最间单的文件名
解决方案 »
- 按客户经理查询到的信息不能显示到TDBGridEh
- 三层开发如何使用多线程调用接口函数?大家帮帮忙,在线等待……
- 如何判断图片中存在红色文字?
- 向这个怎么搞? ------ !
- 如何将网页上的图片显示到Form的Image上,如http://10.0.0.117/.jpg
- 如何移动一个非空文件夹??
- delphi中那么多的组件, 如何才能知道哪个怎么用?delphi中有没有说明?
- combobox如何得到这样的效果
- ADOQuery控件如何实现手动提交?
- 关于cxgrid的footer显示的问题
- 用ADO如何捕获数据库抛出的错误!
- 请问,在MYSQL里的字段为text时,怎么将其在dbgrid里显示出来的?
begin
if OpenDialog1.Execute then
ShowMessage(ExtractFileName(OpenDialog1.FileName));
end;
begin
str1 := ExtractFileName(OpenDialog1.Filename);
n := pos('.',str1)
str2 := copy(Str1,1,n-1)//这便是你想要的!
end;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
ShowMessage(Copy(ExtractFileName(OpenDialog1.FileName),1,POS('.',ExtractFileName(OpenDialog1.FileName))-1))
end;