delphi如何寫替換程式,delphi 字串替換有幾種方法

時間 2022-05-16 10:55:10

1樓:匿名使用者

可以做,只要替換成字串就行嗎

**如下:

procedure tform1.button1click(sender: tobject);

vars : string;

begin

s := 'x-116. 92, y0, z-176. 95, rzo, rr73. 93, rx180';

s := stringreplace(s,' ','',[rfreplaceall]);

s := stringreplace(s,'x','',[rfreplaceall]);

s := stringreplace(s,'y','',[rfreplaceall]);

s := stringreplace(s,'z','',[rfreplaceall]);

s := stringreplace(s,'rzo','0',[rfreplaceall]);

s := stringreplace(s,'rr','0',[rfreplaceall]);

s := stringreplace(s,'rx','0',[rfreplaceall]);

s := 'pos('+s+'''t1:0 t2:0)';

showmessage(s);

end;

2樓:veket的小號

送你一個 autoit指令碼 原始碼 + exe

delphi 字串替換有幾種方法

3樓:匿名使用者

showmessage(stringreplace (astr, 'a', 'two', ));//this is two book, not a pen!只替換了第一個符合的字 通過

showmessage(stringreplace (astr, 'a', 'two', [rfreplaceall]));//this is two book, not two pen!編譯通示過,我這是d7 ,親自測試

4樓:聽不清啊

delphi的stringreplace 字串替換函式

function stringreplace (const s, oldpattern, newpattern: string; flags: treplaceflags):

string;

rfreplaceall:全部替換

rfignorecase:忽略大小寫

for example:

varastr: string;

begin

astr := 'this is a book, not a pen!';

showmessage(stringreplace (astr, 'a', 'two', ));//this is two book, not a pen!只替換了第一個符合的字

showmessage(stringreplace (astr, 'a', 'two', [rfreplaceall]));//this is two book, not two pen!替換了所有符合的字

astr := 'this is a book, not a pen!';

showmessage(stringreplace (astr, 'a', 'two', [rfreplaceall]));//this is two book, not a pen!只替換了符合的字(小寫a)

showmessage(stringreplace (astr, 'a', 'two', [rfreplaceall, rfignorecase]));//this is two book, not two pen!不管大小寫替換了所有符合的字

end;

delphi中怎樣替換整個專案中的某個字串

delphi中文字替換

5樓:

好好研究一下正規表示式:)或者把你的網頁貼上來,講明白要替換什麼,我幫您看看

正規表示式如何寫 替換雙引號裡面的逗號

巨其英燕鳥 str str.replace 如果需要替換成空格以外的東西 就填進去 小的不知道正規表示式怎麼寫,我想替換字串中,所有的在逗號 和點號 之間的字串 給你個一般的 w 用它能找到位於逗號和點號之間的字串.至於怎麼替換 替換成什麼,因為不知道你用什麼工具 語言.所以好回答你.不明白可以繼續...

sql語句如何寫,sql語句如何寫

簡單的幾個 查詢 select 欄位 from 表名 where 條件增加 insert into 表名 values 欄位 欄位型別 修改 update 表名 set 欄位 多少 where 條件刪除 delete from 表名 where 條件還有什麼 alter啊什麼什麼的。還要看你用的什麼...

離職郵件如何寫,離職郵件模板如何寫

1.辭職不需要向單位申請,而是通知單位,不需要單位批准。2.電子郵件算書面通知,屬於有效證據。3.一般應當要求原單位開具離職證明。4.在你沒有原單位的離職證明的情況下,新單位是否願意接收完全取決於新單位的人事管理政策。有的單位不管離職證明,也就無所謂了 有的單位稍有管理,或許看到你已經向原單位提出辭...