// ExtractStrings 切割字串為TStringList型態  需引用 Classes
 
procedure TForm2.Button1Click(Sender: TObject);
var ts:TStrings;
    s:string;
    i:integer;
begin
  ts:=tstringlist.Create;
  ts.Append('keyid_dept_n=rfilter=keyid_language = 1;dfilter=keyid_dept_xxx');
  ShowMessage(ts.Names[0]);
  s:=ts.ValueFromIndex[0];
  ts.Clear;
  i:=ExtractStrings([';'], [], PChar(s), ts);
  ShowMessage('count = '+inttostr(i)+#13+ts.Text);
  ts.Free;
end;
arrow
arrow
    文章標籤
    delphi tstrings tstringlist
    全站熱搜
    創作者介紹
    創作者 抓狂小白 的頭像
    抓狂小白

    抓狂小白的程式筆記

    抓狂小白 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄