如何產生序號 |
|
尚未結案
|
|
a120803
初階會員   發表：61 回覆：66 積分：25 註冊：2003-03-12 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var
str1,str2:string;
begin
str1:=copy(Edit1.Text,1,1);
str2:=copy(Edit1.Text,2,3);
str2:=AddZero2(inttostr(strtoint(str2) 1),3);
Edit2.Text:=str1 str2;
end;
Function TForm1.AddZero2(SS: String; II: Integer):String; //字串前補零
begin
If Length(TRIM(SS)) < II Then
while Length(TRIM(SS))
引言: 請問各位大大: 如何做出A001,A002,A002...的序號啊 以及如何拆解字串中的數字發表人 - chih 於 2003/06/10 09:50:10 |
|
timhuang
尊榮會員 發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
|
|
jackkcg
站務副站長 發表：891 回覆：1050 積分：848 註冊：2002-03-23 發送簡訊給我 |
可以順便參考
【Delphi】【轉貼】用Delphi 編寫"共享軟體"
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=32075 *********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together!
希望能大家敞開心胸,將知識寶庫結合一起
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
發表時間：2003-06-10 01:54:48
IP:163.25.xxx.xxx 未訂閱
系統時間：2024-06-29 17:47:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |