各位大大 請問 #abc #123 #xyz abcdefghijklmno 123456789012345 如何知道第一行的 # 的位置 然後在第一後後的 # 的位置加上空白字元 變成 #abc #123 #xyz abcde fgjij klmno 12345 67890 12345

spencerkuo 你好: 如果只是#加空白,那我會 ss:= 原字串; ss:= StringReplace(ss, '#', '# ', [rfReplaceAll, rfIgnoreCase]); 如果是每一行都要加,以第一行#為依據 那我會用一個array存下所有空白的位置,然後跑回圈加空白

引言: spencerkuo 你好: 如果只是#加空白,那我會 ss:= 原字串; ss:= StringReplace(ss, '#', '# ', [rfReplaceAll, rfIgnoreCase]); 如果是每一行都要加,以第一行#為依據 那我會用一個array存下所有空白的位置,然後跑回圈加空白

但是現在就是不知道怎嚜尋找每ㄧ個# 的位置

procedure TForm1.Button1Click(Sender: TObject);
var
  iAry: Array[1..100] of Integer;
  iCount, i: Integer;
  str, str1: String;
begin      str:= '#abc #123 #xyz';
  str1:= '123456789012345';
  iCount:=0;      for i:=1 to Length(str) do
  begin
    if str[i] = '#' then
    begin
      iCount:= iCount   1;
      iAry[iCount]:= i;
    end;
  end;      for i:=iCount downto 1 do
    Str1:= Copy(Str1, 1, iAry[i]-1) ' ' Copy(Str1, iAry[i], MAXINT);      ShowMessage(Str1);
end;    

你好 可以試試看用pos這個函數!!help裡面有寫範例,應該就是你要的吧!!試試看吧!! Pillar Wang

------
Pillar Wang

pillar62 你好: pos只能抓到第一個符合的位置呀,多個怎麼辦?? 發表人 - jimmy_wei 於 2005/07/07 15:10:41

function posex in strUtils  or KTOP serach "posex"    

引言: pillar62 你好: pos只能抓到第一個符合的位置呀,多個怎麼辦?? 發表人 - jimmy_wei 於 2005/07/07 15:10:41