VPF::string extened integer !!! help please - Форум программистов

muratboy31

Дата 27.1.2010, 11:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

i want to devide the number to 100 i got from a webpage but it doesnt work !!! can someone correct me please !!!

Это сообщение отредактировал(а) muratboy31 - 27.1.2010, 20:13

Regulum

Дата 27.1.2010, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 16.6.2009

Репутация: нет
Всего: 1

Код


alisjpy2:= FloatToStr(strtoint(alisjpy)/100);

muratboy31

Дата 27.1.2010, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

why do i get this error !!!

user posted image

Это сообщение отредактировал(а) muratboy31 - 27.1.2010, 20:14

Frees

Дата 27.1.2010, 19:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

alisjpy2:= FloatToStr(StrToFloatDef(alisjpy, 0)/100);

--------------------

Кольцов Виктор Владимирович

artsb

Дата 27.1.2010, 19:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64

Цитата(muratboy31 @ 27.1.2010, 19:34

)

why do i get this error !!!

Because 1.6564 is not a valid integer value smile

Код


alisjpy2:= FloatToStr(StrToFloat(alisjpy)/100);

Добавлено через 2 минуты и 32 секунды
Frees quickly smile

--------------------

Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.

Frees

Дата 27.1.2010, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Цитата(artsb @ 27.1.2010, 22:43

)

1.6564

artsb, а то что разделитель " . " может помешать! только я не знаю как это по буржуйски написать

--------------------

Кольцов Виктор Владимирович

muratboy31

Дата 27.1.2010, 20:12 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

Цитата(artsb @ 27.1.2010, 19:43)

Цитата(muratboy31 @ 27.1.2010, 19:34

)

why do i get this error !!!

Because 1.6564 is not a valid integer value smile

Код


alisjpy2:= FloatToStr(StrToFloat(alisjpy)/100);

Добавлено @ 19:46
Frees quickly smile

yes that worked perfect smile

artsb

Дата 27.1.2010, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64

Frees, ага.
На С++ будет так:

Код


alisjpy = StringReplace(alisjpy, ".", DecimalSeparator, TReplaceFlags() << rfReplaceAll);
alisjpy = StringReplace(alisjpy, ",", DecimalSeparator, TReplaceFlags() << rfReplaceAll);

Delphi:

Код


var
 rf: TReplaceFlags;
//...
rf := [rfReplaceAll];
alisjpy := StringReplace(alisjpy, '.', DecimalSeparator, rf);
alisjpy := StringReplace(alisjpy, ',', DecimalSeparator, rf);

Это сообщение отредактировал(а) artsb - 27.1.2010, 20:23

--------------------

bems

Дата 27.1.2010, 20:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

artsb, переменная не нужна

--------------------

Обижено школьников: 8

artsb

Дата 27.1.2010, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64

Цитата(bems @ 27.1.2010, 20:41

)

artsb, переменная не нужна

Ага. Но я не знаю как от неё избавиться в Делфи smile

--------------------

bems

Дата 28.1.2010, 06:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

не поверишь

Код


alisjpy := StringReplace(alisjpy, '.', DecimalSeparator, [rfReplaceAll]);

--------------------

Обижено школьников: 8

muratboy31

Дата 28.1.2010, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

is it possible to make it like that !!!

1.000,50
because what i get now is ; 1000.50

i want to add a '.' after every 3 digit and ',' for the cents part...

artsb

Дата 28.1.2010, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64

Цитата(bems @ 28.1.2010, 06:28

)

не поверишь

Сенкс. Вот и Делфи подучу smile

Цитата(muratboy31 @ 28.1.2010, 10:16

)

i want to add a '.' after every 3 digit and ',' for the cents part...

Use string instead of float. Or I don't understand what are you mean...

--------------------

muratboy31

Дата 28.1.2010, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

i save it to ini file is like that;
JPY=1.4851

i want to show it like that in the project;
1,4851

i mean remove the '.' and put ',' instead... but also if number is more than thousand or more than i also want to add '.' like that
1.1251,4851

Frees

Дата 28.1.2010, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

artsb, что сказал?

может вместо FloatToStr использовать Format

Код


  DecimalSeparator := ',';
  ThousandSeparator := '.';
  ShowMessage(Format('%m', [<number>]));

--------------------

Кольцов Виктор Владимирович

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »