Удаление

← →
Оксана Вл. (2008-07-29 15:43) [0]

Скажите пожалуйста как мне удалить числа находящиеся после запятой

var Str1, Str2: String; P: Integer; begin Str1:="192565,53"; Str2:=","; P:=Pos(Str2, Str1); delete(str1,p,1); showmessage(str1);

← →
jack128_ (2008-07-29 15:46) [1]

> delete(str1,p,1);

Почему один? Сюда нуно передовать сколько символов ты хочешь удалить..

← →
Johnmen © (2008-07-29 15:46) [2]

> как мне удалить числа находящиеся после запятой

Зачем?

← →
Оксана Вл. (2008-07-29 15:50) [3]

Johnmen © Ну мне просто надо выводить сумму прописью, а функцию я нашла только которая считает тип интеджер, так вот приходится избавлятся от запятой и двух последних цифр

← →
oldman © (2008-07-29 15:51) [4]

> Str2:=",";
> P:=Pos(Str2, Str1);
> delete(str1,p,1);

Можно заменить на

delete(str1,pos(",",str1),1)

Две переменные не нужны...

← →
oldman © (2008-07-29 15:52) [5]

> а функцию я нашла только которая считает тип интеджер

> var Str1: String;
> Str1:="192565,53";

ну-ну...

← →
Johnmen © (2008-07-29 15:53) [6]

> Оксана Вл. (29.07.08 15:50) [3]

Это называется реальная проктология :)
Учите язык в конце концов.

← →
Григорьев Антон © (2008-07-29 15:54) [7]

> Оксана Вл. (29.07.08 15:50) [3]

Ну тогда вот: http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1028

← →
stas © (2008-07-29 15:57) [8]

var f:Real; S:String;
begin
f:=25.56;
S:=IntToStr(Round(f));
showmessage(S);
end;

← →
Оксана Вл. (2008-07-29 16:15) [9]

Скажите а почему при установке компонента у меня высвечивается такая ошибка

Undeclared identifier: "MainFormHandle"

← →
MsGuns © (2008-07-29 16:18) [10]

Ну зачем для такой простой задачки нужен компонет, а ?

Дайте мыло - я Вам отправлю код функции вечером

← →
Оксана Вл. (2008-07-29 16:22) [11]

Спасибо!... но не поможете мне с установкой компонента точнее с ошибкой которую он показывает

Вам нужно указать путь к папке в которой лежит этот компонент, в Tools

← →
Оксана Вл. (2008-07-29 16:41) [13]

Разобралась Спасибо!

Ты когда-нибудь прочитаешь правила форума в части темы вопросов ?

Удаление Найти похожие ветки