Постепенная обработка текста

[Kib]

Имеется текст вида "_105_204_321_847_247_132", нужно каждое число обработать по отдельности, например:
105*0.5;
204*0.5;
321*0.5;
и т.д.
умножение на 0.5 в данном случае только пример, на самом деле обарботка большая, просто надо как то числа, разделенные знаком "_", вырезать по отдельности.

[JamS007]

1. Могу посоветовать использовать метод pos(). С его помощью можно найти расположение первого знака "_", а там уже от него отталкиваться.

2. Если все числа только из 3х цифр, то тут уже просто арифметика: первые 3 символа - число, 4 - "_".

[Kib]

К сожалению числа не только из 3х цифр

[JamS007]

тогда 1-й метод... Сори, но исходник писать щас нет времени, могу только натолкнуть на мысль:

1. Узнаем положение знака "_". методом Pos(); (Его описание есть, метод достаточно распространенный).

2. Если "_" первый знак в тексте, то его пропускаем, опять используем Pos() чтоб узнать положение второго знака "_".

3. Нашли. Слева от него будет число, причем количество символов в нем, будут = положение второго знака "_" - положение первого знака "_".

4. Считываем число, обрабатываем.

P.S. Знаю, читается устрашительно, но ничего очень трудного нет. Можно для этого дела использовать цикл. Ну там уже как захочешь.

[Kib]

А как пропускать знаки "_" которые уже пройдены?
Я имею ввиду если написать Pos('_',str); , то он всегда будет находить первый знак.
Проще говоря как найти положение второго знака "_"?

[JamS007]

можно использовать буфер (понимаю - слово ужасное, но не пугайся ). Как буфер можно использовать например компонент Memo, в который скопировать весь текст, е обработанные части просто удалять. Это даже в некоторой мере ускорит работу программы.

Но я не гарантирую что это самый надежный и правильный способ Когда то тоже такое делал, но что-то не могу вспомнить как я реализовал пропуск уже обработанных "_".

[S@fer]

Вот пример программки которая считает кол-во слов разделенных пробелом. думаю если ее немного переделать, то она подойдет для ваших целей.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    m:array [1..10] of real;
    i:integer;
begin
  i:=1;
  s:='_105_204_321_847_247_132';
  while s<>'' do
  begin
   delete(s,1,pos('_',s));
   if pos('_',s)<>0 then m[i]:=strtofloat(copy(s,1,pos('_',s)-1))
   else
    begin
     m[i]:=strtofloat(s);
     s:='';
    end;
   inc(i);
  end;
end;

[Kib]

То что нужно!!! Спасибо SERG1980!

[Квэнди]

Возмите Tstringlist,выставьте разделителем подчеркивание, и присвойсте свойству text вашу строку. У вас получится список строк. Вот и все...