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文本文件读与写

Delphi 运行时提升软件到管理员权限

Delphi idhttp批量上传图片

Delphi 判断文件类型函数

Delphi rest api post sample

Delphi 抓图后打印这张图片,弹出打印属性框

Delphi 每年、月、周、日的开始与结束的时间startofayear … startoftheyear … endofayear … endoftheyear

Delphi实现双击左ctrl键调用记事本

Delphi twebbrowser打开paypal出错

Delphi 随机函数单元urandomutils

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

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