频道分类

delphi 从字符串提取字符串

作者:admin 来源: 日期:2020/4/11 23:38:54 人气: 标签:

 
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 删除字符串中指定字符下一篇:没有资料