Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Удаление

Оксана Вл. © (2008-07-29 15:43:00)
Скажите пожалуйста как мне удалить числа находящиеся после запятой

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

Игорь Шевченко (2008-07-29 16:56:00) [1]
Ты когда-нибудь прочитаешь правила форума в части темы вопросов ?

Оксана Вл. (2008-07-29 16:41:00) [2]
Разобралась Спасибо!

stas (2008-07-29 16:38:00) [3]
Вам нужно указать путь к папке в которой лежит этот компонент, в Tools

Оксана Вл. (2008-07-29 16:22:00) [4]
Спасибо!... но не поможете мне с установкой компонента точнее с ошибкой которую он показывает

MsGuns (2008-07-29 16:18:00) [5]
Ну зачем для такой простой задачки нужен компонет, а ?

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

Оксана Вл. (2008-07-29 16:15:00) [6]
Скажите а почему при установке компонента у меня высвечивается такая ошибка

Undeclared identifier: 'MainFormHandle'

stas (2008-07-29 15:57:00) [7]
var f:Real; S:String;
begin
f:=25.56;
S:=IntToStr(Round(f));
showmessage(S);
end;

Григорьев Антон (2008-07-29 15:54:00) [8]

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

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

Johnmen (2008-07-29 15:53:00) [9]

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

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

oldman (2008-07-29 15:52:00) [10]

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

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

ну-ну...

oldman (2008-07-29 15:51:00) [11]

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

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

delete(str1,pos(',',str1),1)

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

Оксана Вл. (2008-07-29 15:50:00) [12]
Johnmen ©Ну мне просто надо выводить сумму прописью, а функцию я нашла только которая считает тип интеджер, так вот приходится избавлятся от запятой и двух последних цифр

jack128_ (2008-07-29 15:46:00) [13]

> delete(str1,p, 1);

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

Johnmen (2008-07-29 15:46:00) [14]

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

Зачем?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »