有一文字檔是以 #&# 為分隔符號，舉例如下: a.txt aaa #{#&# aaa#&# bbb #ř#&# ccc#&# 我要分別取出以 #&#為分隔符號的值，以ReadLn(s,p_str)取得一列的值後，ShowMessage(p_str); 發現居然結果為 aaa ##123## aaa## 請問這該如何處理啊???謝謝

參考一下這一篇： http://delphi.ktop.com.tw/topic.php?topic_id=61140    

function Split(s, delimiter: string): TStrings;
begin
  Result := TStringList.Create;
  Result.Text := StringReplace(s,delimiter,#13,[rfReplaceAll, rfIgnoreCase]);
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  S: TStrings;
begin
  S := Split(p_str,'#&#');
  try
    if Assigned(S) then ShowMessage(S[0]);
  finally
    FreeAndNil(S);
  end;
end;

發表人 - allenchan 於 2004/12/10 00:06:41

之前有人問過類似的問題,請參考以下的程式片段

procedure TForm3.Button1Click(Sender: TObject);
var
  R, S: TStrings;
begin
  if FileExists('A.TXT') then
  begin
    R := TStringList.Create;
    try
      R.LoadFromFile('A.TXT');
      try
        S := Split(R.Text,'#&#');//[red]已分隔的字串
      finally
        FreeAndNil(S);
      end;
    finally
      FreeAndNil(R);
    end;
  end;
end;    function Split(s, delimiter: string): TStrings;
begin
  Result := TStringList.Create;
  Result.Text := StringReplace(s,delimiter,#13,[rfReplaceAll, rfIgnoreCase]);
end;