请问POS函数是什么意思? |
尚未結案
|
ken0705
一般會員 發表:1 回覆:0 積分:0 註冊:2003-02-13 發送簡訊給我 |
|
QOO10
初階會員 發表:59 回覆:89 積分:29 註冊:2002-12-25 發送簡訊給我 |
|
longsanglin
初階會員 發表:10 回覆:57 積分:43 註冊:2002-04-23 發送簡訊給我 |
|
flyup
資深會員 發表:280 回覆:508 積分:385 註冊:2002-04-15 發送簡訊給我 |
|
banson1716
高階會員 發表:55 回覆:182 積分:167 註冊:2002-04-14 發送簡訊給我 |
Pos 尋找子字串在母字串中的位置.
-----------------------------------------------------------------------------
Unit System
函數原型 function Pos(Substr: string; S: string): Integer;
說明 Substr : 子字串.
S : 母字串.
範例
procedure TForm1.Button1Click(Sender: TObject);
var S: string;
begin
S := ' 1234.5 ';
{ Convert spaces to zeroes }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
Label1.Caption := S;
Label1.Font.Size := 16;
end;
//DEMO 001234.50 //空白字串補零
-------------------------------------
var
S: string;
I: Integer;
begin
S:= '2321 sad gfdgfd';
I:= Pos( 'sad', S); // I:= 6
label1.caption:= IntToStr(i);
end;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |