format 的數量 |
|
答題得分者是：deity
|
|
cd109
一般會員   發表：23 回覆：33 積分：11 註冊：2003-12-22 發送簡訊給我 |
|
|
deity
尊榮會員  發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
cd109您好：
您的意思是想获取%s在ss出现的次数吧，参考：
http://delphi.ktop.com.tw/topic.php?topic_id=28123
http://delphi.ktop.com.tw/topic.php?topic_id=57144
或参照下：
procedure TForm1.Button1Click(Sender: TObject);
var
ss,ss1:string;
i,j:integer;
begin
ss:=' aaa aaa aaa %s aaa aaa %s '; //這是要帶2個參數
ss1:=stringreplace(ss,'%s','/',[rfReplaceAll]); //将%s替代为/，方便查找
showmessage(ss1);
j:=0;
for i := 0 to length(ss1) DO
begin
if ss1[I] = '/' Then
j:=j 1;
end;
showmessage(inttostr(j)); //得到参数个数
Edit1.Text:=format(ss,['ccc','ddd']);//這是先知道數量的寫法.
end;
============================
为什么经过多年以后，得失的过程如此冷漠
============================
發表人 - deity 於 2005/04/29 10:51:25
|
|
cd109
一般會員 發表：23 回覆：33 積分：11 註冊：2003-12-22 發送簡訊給我 |
|
|
jest0024
高階會員 發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
引言: 謝謝大哥回覆,問題已順利解決了,不好意思額外再請教一個問題 format(ss,[這裡要動態帶入]);//請問要如何解決,小弟使用array和tstrings都無法成功,請大哥賜教. setlength(Tmpcode,CodeCount); for i:=1 to CodeCount do Tmpcode[i-1]:='a1'; Result:=format(SQL,[tmpcode]); 謝謝
var
Tmp:Array of TVarRec;
begin
SetLength(Tmp,n);
for i:=0 to n-1 do begin
Tmp[i].VType:=vtPChar;
Tmp[i].VPChar:=PChar(Str);
end;
Result:=Format(SQL,Tmp);
end;
|
發表時間：2005-04-29 10:08:03
IP:203.66.xxx.xxx 未訂閱
系統時間：2024-05-17 14:20:03
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |