вытащить сумму из строки

← →
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

>Романов Р.В. © (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 := "";

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

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

val+f1

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