DELPHI 中有没有InStr函数

来源：百度知道 编辑：UC知道 时间：2024/06/13 15:42:19
怎样取出
' $a123$b4322$c653542'
取出：123
4322
653542

使用ExtractStrings吧。举个例子：
procedure TForm1.Button1Click(Sender: TObject);
var
S:string;
SL:TStringList;
begin
S := '$a123$b4322$c653542';
SL := TStringList.Create;
ExtractStrings(['$'],['a','b','c'],PChar(S),SL);//这里说明一下，第一个参数，就是以 $ 把字串分段，分段后得到 a123 b4322 c653542 ，第二个参数，就是把分段后的字串前面的 a b c 去掉。第三个参数就是要分段的字串了。第四个参数，就是结果存放在TStringList里面。
ShowMessage(SL.Text);
SL.Free;
end;

比如
ABC|... DEF|#### GHI|"不会被分开|# www.farproc.com"
要得到

ABC
DEF
GHI
不会被分开|# www.farproc.com
四个子串可以用下面的代码：

uses
Classes;
var
ASource: PChar;
AStr: String;
ACount: Integer;
AStrings: TStringList;
begin
ASource := 'ABC|... DEF|