我寫成如下(字串切成陣列) var kk: string; qq: array[1..4] of string; z: integer; begin kk := 'a1,a2,a3,a4'; z := 0; while pos(',', kk) > 0 do begin z := z 1; qq[z] := copy(kk, 1, pos(',', kk) - 1); kk := copy(kk, pos(',', kk) 1, length(kk) - pos(',', kk)) end; z := z 1; qq[z] := kk; for z := 1 to 4 do showmessage(qq[z]); end; 不過這樣不好.不知是否有內建嗎?謝謝

------
KUSO 無處不在

In your case, using TStringList is easier..

var
    AList: TStringList;
    i: integer;
begin
  AList := TStringList.Crate;
  try
    AList.CommaText := 'a1,a2,a3,a4';
    for i := 0 to AList.Count-1 do
      ShowMessage(AList[i]);
  finally
    AList.Free;
  end;
end;

謝謝大大的回覆 這麼說來沒有類split的函數了 有點可惜因為蠻常用的

------
KUSO 無處不在

function Fetch(var AInput: string; const ADelim: string; const ADelete: Boolean): string; 這應是你要的 須uses IDGlobal

謝謝大大.雖然傳回值跟split不同但已簡化非常多 感謝 var ss:string; z:integer; begin ss:='ab,cd,ef'; for z:=1 to 4 do showmessage(fetch(ss,',',true)); end;

------
KUSO 無處不在