Из строки в массив

[San4o]

Всем привет.
Прошу помощи. Нужен совет
Есть строка в ней есть числа. Надо их занести в массив. Способов много. Какой наименее трудоемкий для программы? У меня большой массив, чисел только 2000-10000.

[Utkin]

Каким образом располагаются числа в строке?
Ищите разделители чисел в цикле. Между двумя разделителями будет ваше число, если последнего разделителя нет, значит в строке кончились числа. Лучше всего в цикле сканируете строку посимвольно. Запоминаете позиции двух последних разделителей. В этом диапазоне будет очередное число. Затем позицию последнего разделителя заносите в первую переменную и ищите следующий разделитель.

[Stilet]

вот глянь сюда, я давал пример быстрого распарсивания массива.
http://www.programmersforum.ru/showthread.php?t=62210
Там находится минимальный элемент, но ничего не стоит его переделать под твою задачую.

[San4o]

Можно ли в процедуре динмаический массив, который объявлен глобальной переменной, и который в этой процедуре заносится как var ... , расширять. Я это делаю так :

SetLength(f1,i+1);
и он мне говорит ошибку - несовместимый тип.
Почему так?
ведь в других местах не в этой процедуре все идет хорошо.

[mMAg]

Слишком сумбурно и расплывчато описано. На код бы посмотреть, чтобы сориентироваться...

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

Пугают меня вот эти ваши слова. Он переобъявлен чтоли внутри процедуры?
Если массив динамический, то, вроде, такой ошибки не должно быть.
Как объявлены f1 и i посмотреть бы...

[Пепел Феникса]

я думаю ТС делает так:

procedure Test(var TestArr:array of integer);

то там действительно ошибка будет, надо поискать как я обходил это

[mMAg]

Объявить свой тип

type IntdynArray = array of integer

А затем уже пользоваться этим типом.

[Serge_Bliznykov]

SetLength(f1,i+1);

КАТЕГОРИЧЕСКИ НЕ РЕКОМЕНДУЮ ДЕЛАТЬ ЭТО В ЦИКЛЕ!!! Если никоим образом нельзя оценить (хотя бы приблизительно и "с запасом" сколько понадобится чисел в массиве, то надо выделять память по мере необходимости кусками (ну, хотя бы по 100, 200 или 500 чисел). Иначе получите огромные тормоза - setlength операция не быстрая...

а вообще, код вроде нормальный..
и mMAg прав - показывайте описание переменных f1 и i
вот код, работает без вопросов:

var
  f1 : array of integer;
  i : integer;
begin
  i:=0;
  while i<10 do begin
    SetLength(f1,i+1);
    f1[i] := i*10;
    inc(i);
  end;
end;

[San4o]

Код такой(место ошибки я подчеркнул):

procedure TForm1.draw(var s:Tlineseries; var k:integer; var f1,f2:array of real; fm:array of real; f:boolean; num:byte);
var i,j:integer;
    fl,fk:boolean;
    g:array of real;
begin
  if num=1 then
   begin
       for i:=0 to high(fm)-1 do
       s.AddXY(i+1,fm[i],'',color1);
   end;
   if num=2 then
   begin
      if f then   //пересчет From SV: Штирлиц 4 рулит...
      begin
          fl:=false;
          fk:=false;
          j:=0;
          for i:=0 to high(fm)-1 do
          begin

             if not fl then
             begin

                if (high(f1)<=i) then
                SetLength(f1,i+1);

                f1[i]:=mas[i];
                fl:=true;
            end
            else
            begin
                if high(f1)<=inttofloat(i) then setlength(f1,i+1);
                f1[i]:=f1[i-1]+(mas[i]-f1[i-1])*(strtofloat(form1.E1.Text));
                if (f1[i-1]-f1[i])>=strtofloat(form1.E2.Text) then
                begin
                    inc(j);
                    if j=1 then  // первое значение хранит номер начала в fx 
                    begin
                        setlength(ffx,j);
                        ffx[0]:=i;
                    end;
                    if high(f2)<=j then setlength(f2,j)
                    f2[j-1]:=f1[i];
                    if not fk then
                    begin
                                      fk:=true;
                                      inc(k);
                    end;


                end
                else
                begin

                fk:=false;
                end;
             end;
         end;
      end;

          for i:=0 to high(fx)-1 do
          s.AddXY(i+1,f1[i],'',color2);

          for i:=0 to high(fxx)-1 do
          s.AddXY(i+1,f2[i],'',color3);



   end;
end;

FROM SV: Есть кнопка "Правка" для своих сообщений. Чтобы код корректно отображался, нужно ставить тэги..

[GenniY]

Что за непонятки? Не о чём поговорить?
Самый первый комент был правильный.{Как задал вопрос так и ответил}

Определи размер строки ->Считай строку посимволЬно ->Определяй знак-разделитель->Выводи свои цифры.

{Для чего устанавливать размер массива если нужно считывать со строки?}