Result := Copy('字符串', 起始位置, 截取字符数)e.g.var
Str1, Str2: string;
begin
Str1 := 'asdfg';
Str2 := Copy(Str1, 2, 2); //Str2等于df
end;
解决方案 »
- delphi 多次浏览文件的记录
- 請問大家在DELPHI中做這種數據的無限層樹是怎么做的
- 请问这个软件值多少钱, 分不够可以再加。
- 请教高手.....,好象跟我的delphi打印有关
- 谁做过远程的系统,我们有近百个办事处,他们那边要将输入的数据直接保存到公司服务气
- 限制输入登录密码三次为什么无效?
- 请问、如何用delphi自代的压缩单元,将一些自定义的数据写入压缩文件,最重要的是不影响解压缩之后的数据,高分相送。
- 判断指定文件名是否存在用什么函数啊?50
- 高手请进一个关于DBGRID的问题(急).
- 请问*.Dat格式的文件用什么应用程序打开?
- 用那个函数能拷贝一个目录下的多个文件?帮忙!
- Websnap的学习
//从字符串Str中Copy从第一个d到其后第一个f的子串Procedure TForm1.CopyDToF();
Var
Str,SubStr:String;
D_Pos,F_Pos:Integer;
Begin
Str:='abcdededaaaffgdgefgfg';
CharPos(Str,'d',1,D_Pos);
CharPos(Str,'f',D_Pos+1,f_Pos);
SubStr:=Copy(Str,D_pos+1,F_Pos-D_Pos-1);
Showmessage(Str+'#13'+SubStr);
End;//有条件的确定某个字符在字符串中的位置
Procedure TForm1.CharPos(Str,Char:String;StartPos:Integer;var FindPos:Integer);
Var
Str_L:integer;
Find:Boolean;
Begin
Find:=false;
FindPos:=Startpos;
While(not Find) do
Begin
FindPos:=FindPos+1;
if Str[FindPos]=Char then
Find:=true;
End;
End;