請問一個問題: 有一字串如下: p_string:='12345|ABCDE|67890|FGHIJ|'; 字串分隔符為「|」。 請問我要如何取得第三個欄位的值67890呢? 謝謝大家。

Hi a02: TStringList可以達成你的要求, 請參考以下文章^^ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=56896 -------------------------- ～天下本無事 庸人自擾之～

臨時幫您寫的...    Function FindStr(SrcStr:String;Index:Integer;Const strDimin: string  =#13):String; var   ST,ED,CT :Integer; begin   Result := '';   ST := 1;   CT := 0;   Repeat     ED := POS(StrDimin,SrcStr);     if (ED<1) and (ST0 then begin SrcStr[ED] := '_'; if CT=Index then begin Result := Copy(SrcStr,ST,ED-ST); Exit; end; ST := ED 1; INC(CT); end; until ED=0; end; procedure TForm1.Button1Click(Sender: TObject); begin Showmessage(FindStr('12345|ABCDE|67890|FGHIJ|',2,'|')); end;