Скачать: CL | DM;

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

← →
Оксана Вл.   (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]

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

---

← →
stas ©   (2008-07-29 16:38) [12]

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

---

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

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

---

← →
Игорь Шевченко ©   (2008-07-29 16:56) [14]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.009 c