各位高手請幫忙:關於Delphi函数的問題.

Question

我想從一個字符串中提取子串,例如:'2004/02/05',從其中分別提取為'2004','02','05'希望各位指點.

Answer 1

你可以把你这个例子中的分隔符'/'抽取出来 比如用变量 StrSep来表示iPos1 := Pos(strSep, yourStr);
strY := Copy(yourStr, 1, iPos - 1); ...以此类推哦。

Answer 2

根据你这个情况，可以'/'做分隔符把它分成几个不同的字符串。
procedure TForm1.Button1Click(Sender: TObject);
var
  ts: TStringList;
  s : String;
  i : Integer;
begin
  s := '2004/02/05';
  ts := TStringList.Create;
  ExtractStrings(['/'], [], PChar(s), ts);
  for i := 0 to ts.Count - 1 do
     ShowMessage(ts[i]);
  ts.Free;
end;