欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

打開(kāi)APP
userphoto
未登錄

開(kāi)通VIP,暢享免費電子書(shū)等14項超值服

開(kāi)通VIP
字符串操作中較常用的函數
1、pos(...)函數
 原型說(shuō)明:function Pos(Substr: string; S: string): Integer;
 該函數在字符串S中查找Substr,并且返回Substr第一個(gè)字符在S中的序號Index值,如果沒(méi)有找到字符串SubStr則返回0,pos()函數對大小寫(xiě)敏感。
例一、BUTTON4查找edit7中的字符串是否在EDIT6中的字符串中。若在則顯示其在原字符串中的位置。
procedure TForm1.Button4Click(Sender: TObject);
var
  s,substr:string;
  i:integer;
begin
   substr:=edit7.Text;
   s:=edit6.Text ;
   if pos(substr,s)=0 then
     showmessage('沒(méi)有找到該子串')
   else
     showmessage('找到了該字符串,從原字符串第'+IntToStr(pos(substr,s))+'位開(kāi)始');
end;
該代碼通過(guò)DELPHI6編譯實(shí)現。
 
2、StrToInt(),StrToIntDef()函數:
StrToInt()函數原型說(shuō)明為:function StrToInt(const S: string): Integer;
StrToIntDef()函數原型說(shuō)明為:function StrToIntDef(const S: string; Default: Integer): Integer;
這兩個(gè)函數將代表整數的字符串S(十進(jìn)制或者十六進(jìn)制)轉換成相應的整數,如果S代表一個(gè)合法的整數,則返回其對應的整數值,若S代表一個(gè)非法的整數,對于StrToIntDef()函數則返回參數Default的值;而函數StrToInt()則引發(fā)錯誤。
例二、將EDIT1里的內容轉換成整數并在EDIT2內顯示,若EDIT1輸入的為非法數據則在EDIT2內輸入1000。
procedure TForm1.Button1Click(Sender: TObject);
var
  Number: Integer;
begin
  Number := StrToIntDef(Edit1.Text, 1000);
  Edit2.Text := IntToStr(Number);
end;
例二、判斷字符串是否可以轉換為整數
function IsIntStr(const S: string): boolean;
begin
Result:=StrToIntDef(S,0)=StrToIntDef(S,1);
end
 
3、Concat()函數:連接兩個(gè)或者更多字符串為一個(gè)字符串
函數原型說(shuō)明:function Concat(s1 [, s2,..., sn]: string): string;返回連接后的字符串,該函數功能與'+'一樣。
 
4、Copy()函數:用來(lái)截取字符串中的的一段;
原型說(shuō)明:function Copy(S; Index, Count: Integer): string;//從字符創(chuàng )S的Index處開(kāi)始截取Count個(gè)字符返回
                   function Copy(S; Index, Count: Integer): array
;//與字符串操作相似,但是只能作為過(guò)程或函數調用時(shí)的參數。
 
5、Delete()過(guò)程
原型說(shuō)明:procedure Delete(var S: string; Index, Count:Integer);//講字符串S從Index處開(kāi)始刪除Count個(gè)字符。
 
6、Insert()過(guò)程
原型說(shuō)明:procedure Insert(Source: string; var S: string; Index: Integer);//將字符串Source插入到S字符串index處。
 
本站僅提供存儲服務(wù),所有內容均由用戶(hù)發(fā)布,如發(fā)現有害或侵權內容,請點(diǎn)擊舉報。
打開(kāi)APP,閱讀全文并永久保存 查看更多類(lèi)似文章
猜你喜歡
類(lèi)似文章
DELPHI常用過(guò)程和函數
delphi:金額轉成英文
php函數用于截取英文的字符串但不分割英文單詞
C++ 筆試基礎之 08 字符串分割函數
Perl Substr()函數處理字符串
delphi 字符串加密收集
更多類(lèi)似文章 >>
生活服務(wù)
分享 收藏 導長(cháng)圖 關(guān)注 下載文章
綁定賬號成功
后續可登錄賬號暢享VIP特權!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服

欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久