同上
解决方案 »
- 服务器端用TServerSocket怎么将一个用户的消息转发给另外一个用户?
- 新人分不多 请多多包含!!!50吧
- delphi中TTable的Setkey功能和ADO中的那种方法相同~
- WebConnection1+ADO是不是有BUG?
- 用DElphi怎么现实,客户端的操作,在服务器端响应。
- 如何得到dll的Handle?
- 高分寻求delphi经典代码,思想 外加
- 在同一台机器上,有GUID的Interface是不是只能由一个COM对象来实现?
- 请教关于TTable控件的条件查询.
- 如何控制edit的输入格式?
- 最近搞个项目,不知道大家知道不知道,高手请教喽!200%结贴!
- 一个由VB启发到的问题,请高手赐教
s1:=copy(s,1,pos(s,'.'));
FileName := ExtractFileName(SaveDialog1.FileName);
FileName := ChangeFileExt(FileName , '');
str:string;
str:='c:\ss.txt';
str:=copy(str,4,2);
如果是没有扩展名的文件名,会得到什么结果?
if pos(s,'.') > 0 then
s:=copy(s,1,pos(s,'.'));
//否则s就是需要的