1樓：匿名使用者
function incnum(const numberstr: string): string;
vari, num: integer;
numstr: string;
isin: boolean;
begin
isin := true;;
numstr := numberstr;
for i := length(numstr) downto 1 do
begin
if numstr[i] in ['0'..'9'] then
begin
if not isin then continue;
isin := false;
num := strtoint(numstr[i]);
num := num + 1;
if num = 10 then
begin
num := 0;
isin := true;
end;
numstr[i] := inttostr(num)[1];
end;
end;
result := numstr;
end;
// 呼叫方式
showmessage(incnum('wh002a')); // 顯示 wh003a
showmessage(incnum('wh009a')); // 顯示 wh010a
showmessage(incnum('wh999a')); // 顯示 wh000a
2樓：匿名使用者
以wh001a為例
a,b,c:integer;
a:=0;
b:=0;
c:=1;
加個timer控制元件
if a=10 then
begin
a:=0;
b:=b+1;
endelse
a:=a+1;
if b=10 then
begin
b:=0;
c:=c+1;
end;
if c=10 then
showmessage('超出範圍');
label1.caption:=『wh』+inttostr(c)+inttostr(b)+inttostr(a)+'a';
delphi怎樣 檢查一個字串必須是否是數字和字母的組合！謝謝！
3樓：哀醬
function ifhasnumandstr(str:string):boolean;
begin
result:=false;
for i:=0 to 9 do
begin
if pos(inttostr(i),str)<0 then break;
for j:=65 to 91 do
if pos(chr(j),uppercase(str))>0 then
begin
result:=true;
break;
end;
end;
end;
4樓：匿名使用者
檢視每個字元的ascii碼是不是數字或字母
5樓：己聞楣
function ispurenumberoralpha( s : string ) : boolean;
vari : integer;
begin
result := false;
for i := 1 to length( s ) docase s[i] of
'0'..'9', 'a'..'z', 'a'..'z':
begin
end;
else
exit;
end;
result := true;
end;
delphi 檢查字元是否是數字和字母的組合
6樓：匿名使用者
給你個例子:procedure tform1.button1click(sender: tobject);
varstr : string;
begin
str := edit1.text;
trystrtoint(str);
showmessage('由數字組成！');
except
if str=uppercase(str) thenshowmessage('由大寫字母組成！')else
if str=lowercase(str) thenshowmessage('由小寫字母組成！')else
showmessage('由數字和字母混合組成')end;
end;
7樓：匿名使用者
***********************檢測函式：function mycheck(str:string):integer;
vari: integer;
zm,sz: integer;
begin
result := 0;
zm := 0;
sz := 0;
for i:=1 to length(str) do
begin
if (str[i] in ['a'..'z','a'..'z']) then
zm := 1;
if (str[i] in ['0'..'9']) then
sz := 1;
end;
if zm = 0 then
result := 1;
if sz = 0 then
result := 2;
if (zm=1) and (sz=1) then
result := 3;
end;***************************呼叫舉例：
procedure tform1.button1click(sender: tobject);
varval:integer;
begin
val := mycheck(trim(edit1.text ));
if val = 0 then
showmessage('執行發生錯誤');
if val = 1 then
showmessage('無字母');
if val = 2 then
showmessage('無數字');
if val = 3 then
showmessage('同時包含有字母和數字');
end;************************
8樓：匿名使用者
function isright(s:string):boolean;var i:integer;
begin result:=true; for i:=1 to length(s) do begin if not (s[i] in ['a'..
'z','a'..'z','0'..'9']) then begin result:
=false; break; end; end;end;
delphi中將字串和數字之間相互轉換的函式,具體使用方法及格式(舉個例子,要說明資料型別等)?
9樓：沃幻玉
整數到字串 inttostr() 字串＝inttostr(整數)
字串到整數 strtoint()
字串到小數 strtofloat()
小數到字串 floattostr()
delphi中如何比較字串的大小裡面內容都是數字
10樓：
把字串裡的數字分開存在strings 再進行操作
11樓：龍胖胖紙
如果都是數字的話，直接轉成浮點型或者整形，然後直接比較即可
12樓：憑韻
function isnumberic(vaule:string):boolean; //判斷vaule是不是數字
vari:integer;
begin
result:=true; //設定返回值為 是（真）vaule:=trim(vaule); //去空格for i:=1 to length(vaule) do //準備迴圈
begin
if not vaule[i] in ['0'..'9'] then //如果vaule的第i個字不是0-9中的任一個
begin
result:=false; //返回值 不是（假）exit; //退出函式
end;
end;
end;
用這個函式判斷即可
13樓：
function comparestr(s1, s2:string): boolean;
vara, b: integer;
begin
a := strtoint(s1);
b := strtoint(s2);
result := (a > b);
end;
14樓：
if trystrtoint(astr, aint) then
15樓：危獻
直接比較
lstrcmp(s1, s2)
當s1s2時，返回值》0
需要windows.pas
16樓：匿名使用者
copy出來一個一個字元對比
delphi如何實現視窗新增資料到資料庫裡
你最好使用資料庫感知控制元件，dbedit等等,如果你使用普通控制元件，要多寫一些 看樣子你對資料庫操作不太熟悉，應該多讀一些基礎的書。1.你如果用資料庫感知控制元件，儲存的時候用post直接提交。如果用普通控制元件，你需要把edit.text值賦給欄位再post提交 2.dm做公用資料模組，你需要...
delphi 7中陣列如何當引數
因為你在函式中傳遞的陣列的形參的型別的是tdigits。但是實參s卻不是tdigits而是array 1.8 of longint。固然實參的宣告與形參就形式上來說是一致的 都是array 1.8 of longint 但是在程式中tdigits與實參s的型別卻不能被認定為同種型別。所以自然無法通過...
如何在中 實現 輸入上標 下標，ppt中如何實現上標和下標在同一列上
使用過word上 下 標的bai可能都du知道，要zhi在word中實現上 下標功能dao，可以點專相關的按鈕來完成，屬同時也能使用快捷鍵來完成！上 下標快捷鍵介紹 上標 ctrl shift 說明，同時按下ctrl shift和 這三個鍵，就可以輸入上 標，如果想取消上標的輸入，再次按這三個鍵即可...