delphi 从字符串提取字符串

本文整理自网络，侵删。

 
Function CopyTo_(S : String; StopChar : Char) : String;
 Var
  I  : Integer;
  S1 : String;
begin
//
 S1 := '';
 For I := 1 to Length(S) do
  if S[I] = StopChar then break else S1 := S1 + S[I];
 result := S1;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:=CopyTo_('abcd12345','d');
end;
 

相关阅读 >>

Delphi uac相关代码

Delphi图像匹配算法

Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi中最小化其他程序及所有程序窗口最小化

Delphi createmessagedialog

Delphi 运行中申请uac权限

Delphi idpop3收邮件

Delphi 双击dbgrid然后得到字段里面的内容

Delphi 动态调用chm文件

Delphi 模拟网站验证码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 从字符串提取字符串