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实现webservice带身份认证的数据传输

简单的rs232c/ttl电平转换和串口取电

Delphi 用dbexpress处理jpg图片

Delphi根据网络链接截取域名

Delphi 关于 "高位" 与 "低位"

Delphi xe5 android 使用system.zip单元释放资源文件

Delphi如何在一个窗体中嵌入另一个窗体

Delphi 进程通讯之wm_copydata 发送程序（senddata.exe）

Delphi判断sql server 服务是否断开

Delphi removewhitespaces 过滤字符串所有空格

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

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