delphi学习----字符串切割问题（split）

最近做一个项目，要用Delphi，以前从未学过，好是费劲啊，哈哈光是字符串切割这个问题就困扰了几个小时，通过查资料终于解决，在这与大家分享一下

 

Function split(src: pchar; ch: char):TStringList;
// 分割字符串
var
  i: Integer;
  tmp : string;
begin
  Result:=TStringList.Create;
  tmp := '';
  showmessage(src);
  showmessage(inttostr(Length(src)));
  for i := 0 to Length(src) do
  begin
    if src[i] <> ch then
    begin
      tmp := tmp + src[i];
    end
    else
    begin
      Result.Add(tmp);
      tmp := '';
    end;
  end;   
  Result.Add(tmp);
end;

 

 

说明一下，有些人用Pos函数来对字符串分割，这个函数对中文处理不了，所以最好不要用，

 

 

调用方法

先定义一个 var AStrings: TStringList;

 

在下面使用时 AStrings:=TStringList.Create;然后AStrings:=FaClass.split(pchar(AStr),'|');就把分割后的数组保存在了AStrings中了