Delphi 文字轉換成數字

時間 2025-01-30 02:40:20

1樓:網友

procedure : tobject);

var num: integer;

beginnum:=strtoint(;

with table1 do

beginindexfieldnames:= 姓名';

setkey;

fieldbyname('姓名').value:= ;

if gotokey then

beginshowmessage('查詢成功');

'該學號是';

fieldbyname('學號').asstring;

endelse showmessage('查詢失敗');

end ;

2樓:匯光精機

你如果再裡輸入姓名肯定會報錯了!你用了乙個轉換函式了!樓上的基本正解但要去掉 num:=strtoint(;

delphi中將字串和數字之間相互轉換的函式,具體使用方法及格式(舉個例子,要說明資料型別等)?

3樓:沃幻玉

整數到字串 inttostr() 字串=inttostr(整數)

字串到整數 strtoint()

字串到小數 strtofloat()

小數到字串 floattostr()

delphi中有沒有把字串轉換為int的函式?

4樓:匿名使用者

有的,你的情況使用 strtointdef語法: strtointdef(『字串』,如果字串是非法的整數預設返回的int)舉例: var i:

integer;s:string; s:='12345』; i:

strtointdef(s,0); //i=12345 s:='a123' i::=strtointdef(s,0); //i=0

5樓:合蘭夢年竹

1tryinttostr函式,功能和上同,但解決了不克不及轉換報錯問題。但都達不到你的請求。inttostr函式,但只能將將全部字串轉換,並且當不克不及轉換時會報錯你須要本身解析字串,思路你本身都說了,攫取每乙個字母,如**是數字就存起來,是空格跳過,其它的就停止了。

把最後得的結**字串用上述函式一轉。就行了應用try異常控制和strtoint函式可以達到你要的效**。還有可以用陣列的方法,獲取每位的字元。

根據正則斷定或者if前提斷定,來達到你的請求。

6樓:匿名使用者

a:='123a';s:='';try for i:

1 to length(a) do begin strtoint(a[i]);s:=s+a[i]; end;except if length(s)=0 then s:='0';end; 最後返回是s=123,當然用try的話,除錯的時候會報錯的,你直接執行exe就ok了。

delphi 阿拉伯數字轉化成中文數字

7樓:網友

數要小於1億,**如下,供參考:

varn:longint;

a:array[1..8] of integer;

b:array[1..8] of string;

i,k,m:integer;

s,st:string;

procedure insert(var m:integer;x:integer);

beginif m=0 then a[1]:=x else a[m+1]:=x;

inc(m);

end;begin

n:=83007305;

readln(n);}

m:=0;b[1]:=b[2]:=十'; b[3]:=百猛明'; b[4]:=千'; b[5]:=萬';

b[6]:=十'; b[7]:=百'; 枝州告跡譽b[8]:=千';

while n>0 do begin

insert(m,n mod 10);

n:=n div 10;

end;s:='

for i:=m downto 1 do begin

str(a[i]:0,st);

k:=length(s);

if i<>5 then

if a[i]=0 then begin

if copy(s,k-1,2)<>零' then s:=s+'零';

end else s:=s+st+b[i];

if i=5 then

if a[i]=0 then begin

if copy(s,k-1,2)<>零' then s:=s+'萬'

else s:=copy(s,1,k-2)+'萬';

end else s:=s+st+b[i];

end;if copy(s,length(s)-1,2)='零' then s:=copy(s,1,length(s)-2);

writeln(s);

end.

delphi 判斷字串是否為數字

8樓:

trystrtoint(str);

b:=true;

except

b:=false;

end;如果b=true就代表是,strtoint 是個會異常返回的函式,如果是異常退出就代表是。。。

delphi中如何將string轉int?

9樓:橙

1、strtoint (const s:string):longint 將數字字串轉換成整數,字串可以是十進位或十六進位格式,如果字串不是乙個合法的數字字串,系統發生econverterror異常。

2、datetimetostr (datetime:tdatetime):string; 將tdatatime格式變數轉換成字串,如果datetime引數不包含日期值,返回字串日期顯示成為00/00/00,如果datetime引數中沒有時間值,返回字串中的時間部分顯示成為00:

00:00 am。

10樓:網友

據我的理解,並編寫測試**:

vari,gmc: integer;

begini:=1;

gmc := 3;

while (i <= gmc) do

begin//////glujing 是string型別///////gmc是**名稱後面的數字,如『宮內節育器放置+ '人口計生\計劃生育技術服務\宮內節育器放置' + inttostr(gmc) +'.jpg');

end;end;

你的問題補充:intostr 不能用,可能的原因:

1. 最可能的原因:函式名稱拼寫錯誤,少了個t,應該是 inttostr

2. 沒有將inttostr所有的單元檔案包含進來(uses,但據我的估計可能性不大,一般來說這個函式所在單元都會預設引入)。

delphi問題:宣告乙個過程,實現將任意數字字串轉換為數值型資料的功能(提示:類似

11樓:網友

給自己找麻煩呀? 為什麼只能用運算子及chr,ord函式?

delphi 字串轉換成整形時變成兩位數的格式

12樓:網友

用 format(),格式如:2位、8位、前面空格6位:=format('%',[15]);

format('%',[15]);

format('%',[15]);

Excel中,如何把科學記數法轉換成數字

蟻秋珊庫元 excel中預設數字顯示11位,如果超過11位,則會顯示為科學記數法或後面的顯示為0,二代身份證號是18位,要全部顯示出來,就要以文字格式輸入,方法有 1.右擊單元格 如果是整列,直接右擊列標 設定單元格格式 數字 文字 確定 2.先輸入英文狀態下的單引號 再輸入數字串,也是作為文字,會...

VB如何將數字字串轉換成數字用以計算

用val就可以了,比如a是字元型的變數 a 1500 b val a 這時候b就是1500 數值 了。 十六進位制自己搞個函式弄吧,a f 對應 10 15 然後按權位 加起來就10進位制了 hf0 十六進位制沒h。 蔡瑀 public function cdm byval val val repl...

編寫函式求將整數轉換成數字字串C語言

僅供參考 沒有把數字按字串輸出 只是效果差不多 include void main else break 如果輸入數字為五位,if j 4 輸入數字小於五位時,j要減1,因為for還沒結束而i 1,又因為j i 所以p i 上沒有值 else else printf 輸入有誤 方法一 將字串格式化為...