Delphi визуалды программалау ортасы

Pos(Substr: String; Str: String): Integer

жүктеу 1,5 Mb.

бет	65/94
Дата	03.02.2022
өлшемі	1,5 Mb.
	#35447

1 ... 61 62 63 64 65 66 67 68 ... 94

Delphi визуалды программалау жүйесі

Insert(Source: String; var S: String; Index: Integer): Integer
Copy(S: String; Index, Count: Integer): Integer

Pos(Substr: String; Str: String): Integer функциясы – Str жолына SubStr-дің алғашқы ену позициясын(индексін) қайтарады. Егер Str жолында SubStr жоқ болса, оған 0 қайтарылады.

Insert(Source: String; var S: String; Index: Integer): Integer функциясы – S жолына нөмірі Index-ке тең символдан басталатын Source жолын қосады.
Delete(var S: String; Index, Count: Integer): Integer функциясы - S жолынан нөмірі Index-ке тең символдан басталатын және Count –қа дейінгі символдардан тұратын ішкі жолды жояды.
Мынау жол бөліктерін көшіретін функция:

Copy(S: String; Index, Count: Integer): Integer функциясы - S жолына нөмірі Index-ке тең символдан басталатын және Count –қа дейінгі символдардан тұратын ішкі жолды қайтарады.

Бұдан басқа осы функцияны үтірден кейін қажетті цифрлар саны бар бүтін емес сандарды экранға шығаруға пайдалануға болады. Ол үшін, әуелі Real пішімді сандардан жол алайық. Содан соң Pos функциясы арқылы осы жолдағы үтір позициясын тауып, оған қажетті символ санын қосамыз және соны нәтижеге көшіреміз.

Мынау соның дайын функциясы:

function RealToStr(X: Real; Count: Integer): String; //Count - үтірден кейінгі цифр саны

жүктеу 1,5 Mb.

Достарыңызбен бөлісу:

1 ... 61 62 63 64 65 66 67 68 ... 94