var S: String;
N: Integer;
begin S:=FloatToStr(X); // үтірден кейінгі ұзын цифрлар тізбегі
N:=Pos(',', S); //жолдағы үтір позициясы
N:=N+Count; // үтірден кейінгі қажетті таңбалар саны //берілген жолдың ұзындығын есептеу
Result:=Copy(S, 1, N);
end;
II. Бағдарлама құрып үйрену Бұл бөлімде біз алдыңғы 1- бөлімде оқып танысқан Delphi бағдарламалау тілі бойынша білігімізді осы визуалды ортада пайдалана білуге көмектеседі-ау деген төмендегідей практикалық жұмыстарды орындау арқылы жалғастырамыз.
Ескерту Delphi ортасында бағдарламалау жұмыстарын қазақ тілінде орындау үшін пішінді ашқан бойда (Form1) ең алдымен Object Inspector терезесінің Properties астарында Font қасиетінің тұсындағы (...) көп нүктеде шертеміз, сонда ашылған Шрифт терезесінде қазақ қарпін (біздің жағдайда: Times New Roman) таңдауымыз керек. Міне осы әрекеттен соң ғана пішіндегі барлық жазбалар қазақ тілінде жазылатын болады, ал ол қаріпті үлкейтіп-кішірейту жұмысы сол Шрифт терезесінде бұрынғыша атқарылады.
