请问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;
|
發表時間：2003-02-14 09:38:30
IP:61.179.xxx.xxx 未訂閱
系統時間：2024-05-04 15:05:15
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |