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

вытащить сумму из строки   Найти похожие ветки 

← →
denis24   (2004-05-26 17:16) [0]

Простая вроде задача ,но я запутался.
есть стока "0000000012560" как из нее вытащить сумму 125,60?
В цикле ,считывая по символу а вот как с флагами и т.д.?

---

← →
panov ©   (2004-05-26 17:17) [1]

StrToInt(MyStr)/100

---

← →
Sandman25+1   (2004-05-26 17:18) [2]

StrToInt(S)/100?
Какими флагами?

---

← →
jack128 ©   (2004-05-26 17:19) [3]

var
 d: double;
begin
 d := StrToInt(edit1.Text)/100;
end;

---

← →
ega23 ©   (2004-05-26 17:20) [4]

А почему сумму? Сумму чего?

---

← →
WebErr ©   (2004-05-26 17:51) [5]

Вопрос - просто супер!
Как мне из строки вытащить сумму...
Сразу приходит на ум строка вроде:
"123,4+512,82"
Но нет! Автор не это имел в виду...
Что же имел в виду автор, останется для нас непостижимой загадкой! :))))

---

← →
begin...end ©   (2004-05-26 18:52) [6]

> Что же имел в виду автор, останется для нас непостижимой
> загадкой!


Money, ИМХО :-)

---

← →
ega23 ©   (2004-05-26 18:56) [7]

Удалено модератором
Примечание: Личная переписка

---

← →
Anatoly Podgoretsky ©   (2004-05-26 20:40) [8]

Чего непонятного это сумма, в маштабированном формате, можно сказать что это сумма в копейках, запичсанная в текстовом фиде, может какой ни будь фиксальный аппарат и это его формат.

---

← →
denis24   (2004-05-27 15:26) [9]

Да,это сумма в маштабируемом формате
И еще вопрос ;)Теперь это что-то вроде счета.
Таже строра  в маштабир.формате.
Например "0000001234560"
или      "0000063524579"
Как из нее вытащить одни лишь цифры которые идут ПОСЛЕ нулей  в начале?
Тоесть должно получиться "1234560" и "63524579".

---

← →
Романов Р.В. ©   (2004-05-27 15:30) [10]

StrToInt("0000001234560")/100*100

---

← →
slgeo ©   (2004-05-27 15:35) [11]

>Романов Р.В. ©   (27.05.04 15:30) [10]
А зачем такая хитрая комбинация /100*100 ??? :)

>denis24   (27.05.04 15:26) [9]
try
 Val := StrToInt("0000001234560");
except
 ShowMessage("Неверно задано значение счета!");
end;

---

← →
Sandman25+1   (2004-05-27 15:37) [12]

F := 0;
for I := 1 to Length(S) do
 if S[I] <> "0" then
 begin
   F := I;
   break;
 end;
if F > 0 then
 Delete(S, 1, F-1)
else
 S := "";

---

← →
Романов Р.В. ©   (2004-05-27 15:44) [13]

> slgeo ©   (27.05.04 15:35) [11]
> >Романов Р.В. ©   (27.05.04 15:30) [10]
> А зачем такая хитрая комбинация /100*100 ??? :)

Это шутка такая

---

← →
Fay ©   (2004-05-27 15:51) [14]

val+f1

---

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

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



Память: 0.47 MB
Время: 0.02 c