Преобразование строки..

← →
AlexDan © (2009-07-01 21:02) [0]

Подскажите пожалуйста, по моему есть функция, преобразующая смешанную строку в число, т.е. парралдв1234длавдл = 1234.

← →
AlexDan © (2009-07-01 21:03) [1]

← →
Сергей М. © (2009-07-01 21:13) [2]

Ты очумел ?)

КАК можно преобразовать в число галиматью вида "1адын2дыва3тры" ?
Только не говори, что это не "смешанная строка"))

← →
{RASkov} © (2009-07-01 21:16) [3]

Если даже и нет в чем проблема? Трудно свою забабахать?)

← →
AlexDan © (2009-07-01 21:17) [4]

ну значит нет, просто по моему была вроде.), ага, вроде придумал, сам наверно напишу (под себя))..

← →
{RASkov} © (2009-07-01 21:21) [5]

function GetAllDigitsFromString(AStr: String): Integer;{Float} begin //тут нужно убрать из AStr все символы, что не цифры... try Result:=StrToInt(AStr); except Result:=0; end; end;

← →
Сергей М. © (2009-07-01 21:22) [6]

> ага, вроде придумал

И в какое же число придуманная тобой функция преобразует смешанную строку, т.е. 1адын2дыва3тры = ?

← →
{RASkov} © (2009-07-01 21:23) [7]

> [6] Сергей М. © (01.07.09 21:22)

Он же вроде пример привел в [0] :)

> т.е. парралдв1234длавдл = 1234

соответстсенно:

> 1адын2дыва3тры = ?

123

← →
Сергей М. © (2009-07-01 21:30) [8]

> {RASkov} © (01.07.09 21:23) [7]

Это почему же 123 ?
А я утверждаю, что 112233)..
И попробуй возрази, что такое "преобразование" противоречит [0])

← →
{RASkov} © (2009-07-01 21:43) [9]

> Это почему же 123 ?
> А я утверждаю, что 112233)..

ну и то и другое реально, только 123 - просто, а 112233 - годы труда. :)

> {RASkov} © (01.07.09 21:21) [5]
> //тут нужно убрать из AStr все символы, что не цифры...
Вот спасибо:))), вот это особенно ценно..)., {кто б мог подумать..;)}
> Сергей М.
> 1адын2дыва3тры
вот уж действительно даже годы труда скорее всего вряд ли дадут что-то другое чем 123)..

> > 1адын2дыва3тры
> вот уж действительно даже годы труда скорее всего вряд ли
> дадут что-то другое чем 123)..
>

А сколько лет тебе нужно, чтобы нормально сформулировать вопрос?
Типа "Как убрать из строки все символы, что не цифры"?

> ну значит нет, просто по моему была вроде

Есть похожая функция, Val называется. Но ей нужно, чтобы до собственно цифр строка содержала пробелы, произвольные символы не прокатят.

Не надо убирать из строки никаких символов - это приведет к многократной переписке памяти, что очень неэффективно. Делается проще:

Result := 0;
for i := 1 to Lengtn(S) do
if S[i] in ["0".."9"] then
Result := Result * 10 + Ord(S[i]) - Ord("0");

Преобразование строки.. Найти похожие ветки