請問如何轉換個位數後面的小數點,不是空字串也不能為0?? |
答題得分者是:syntax
|
K1086
初階會員 ![]() ![]() 發表:63 回覆:148 積分:42 註冊:2007-04-09 發送簡訊給我 |
procedure TTwn_Anly_49_Fm1.HemisphereButton1Click(Sender: TObject);
var FS0:STRING; AS1:array[0..1] of string; Begin AS1[0]:=COPY((Lab_RS1.Caption),0,1);//抓差數第一位數 AS1[1]:=COPY((Lab_RS1.Caption),2,1);//抓差數第二位數 IF AS1[1]= '.' Then as1[1]:='0'; FS0:= AS1[0] AS1[1]; //等差數相加去.豆點 ===>假設AS1[0] 的值是 3 AS1[1] 的值是. ===>經字串轉換 FS0:= 30 ===>然而 30 並非所要正確值 實際需要的值是 3 而已 所以不知要如何解決 .豆點的問題 ===>請教各位 Delphi 高手 謝謝! |
Fishman
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
不太了解,是不是這樣
<textarea class="delphi" rows="10" cols="60" name="code"> var FS0:STRING; AS1:array[0..1] of string; Begin AS1[0]:=COPY((Lab_RS1.Caption),0,1);//抓差數第一位數 AS1[1]:=COPY((Lab_RS1.Caption),2,1);//抓差數第二位數 IF AS1[1]= '.' Then AS1[1] := ''; FS0:= AS1[0] AS1[1]; //等差數相加去.豆點 </textarea>
------
Fishman |
eaglewolf
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:4 回覆:268 積分:429 註冊:2006-07-06 發送簡訊給我 |
若Lab_RS1.Caption 是31.3跟3.03
原本的程式 FS0都會是30 ===================引 用 K1086 文 章=================== procedure TTwn_Anly_49_Fm1.HemisphereButton1Click(Sender: TObject); var FS0:STRING; AS1:array[0..1] of string; Begin AS1[0]:=COPY((Lab_RS1.Caption),0,1);//抓差數第一位數 AS1[1]:=COPY((Lab_RS1.Caption),2,1);//抓差數第二位數 IF AS1[1]= '.' Then as1[1]:='0'; FS0:= AS1[0] AS1[1]; //等差數相加去.豆點 ===>假設AS1[0] 的值是 3 AS1[1] 的值是. ===>經字串轉換FS0:= 30 ===>然而 30 並非所要正確值 實際需要的值是 3 而已 所以不知要如何解決 .豆點的問題 ===>請教各位 Delphi 高手 謝謝!
------
先查HELP 再查GOOGLE 最後才發問 沒人有義務替你解答問題 在標題或文章中標明很急 並不會增加網友回答速度 Developing Tool: 1.Delphi 6 2.Visual Studio 2005 3.Visual Studio 2008 DBMS: MS-SQL
編輯記錄
eaglewolf 重新編輯於 2007-05-12 17:16:12, 註解 無‧
|
syntax
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
如 123.4000
dotPos := ANSIPOS(Str,'.'); Num := Copy(Str,dotPos 1,Length(Str)); Num 會等於 4000 方法如上,細節請自行處理,如該如何宣告,宣告的型態,你應該有辦法解決 如果 Str 是 123.4000 這種型態,才必需加入去尾 0 的方法 方法也很直覺 i := Length(Num) - 1; while (Num[i] = '0') and (i > 0) do i := i - 1; NewNum:= Copy(Num, 1, i 1); 此時 NewNum 會等於 4 就是解 |
K1086
初階會員 ![]() ![]() 發表:63 回覆:148 積分:42 註冊:2007-04-09 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |