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 輸入有誤 方法一 將字串格式化為...