Работа со строковыми данными: разделить строку на два числовых массива

[radiokarazinec]

Здравствуйте! Подскажите как можно реализовать: вот есть у меня текстовый файл для проекта, в нем две колонки данных и делитель 4 пробела, как мне сделать из него 2 массива данных. один массив - одна колонка данных, второй - вторая, а потом по ним построить график. Зараннее благодарю!

[Stilet]

Запросто. считываешь ты из файла как?
Допустим в некую строку, а после

...
k:=pos(' ',s);
SetLength(a,Length(a)+1);a[high(a)]:=copy(s,1,k-1);delete(s,1,k);
SetLength(b,Length(b)+1);b[high(b)]:=trim(s);
...

Где k - integer; a,b :array of string s - очередная считанная строка
Понял мысль?

[radiokarazinec]

а что это за код серым шрифтом?

[Serge_Bliznykov]

а что это за код серым шрифтом?

не обращайте внимания - это скрипт криво распознал язык программирования и, соответственно, криво отобразил текст программы.
Это просто обычный код.

Нужно в цикле разделять строку:

for i:=1 to N do begin
  MasOdiv[i] := Copy(s, 1, Pos(' ',s)-1); 
  MasDva[i]  := Copy(s, Pos(' ', s)+1, Length(s)-Pos(' ',s));
end;

[radiokarazinec]

Ребята а не можете код по подробнее, что-то я не пойму, первый раз такое попалось, как для чайника))) и что там с делетелем?

[Stilet]

А ты свои наработки покажи. Ато все мы да мы.

[radiokarazinec]

ну хо.. вышлю куда нибудь ток там ток начало, потому что без этого дальше никак?

[radiokarazinec]

вот ссылка на него
http://ifolder.ru/22010830

[radiokarazinec]

ребята, ну подскажите плиз

[Serge_Bliznykov]

без проверки на правильность..
просто для затрвки:

procedure TFDataWindow.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 Action:=CaFree;
end;

procedure TFDataWindow.FormActivate(Sender: TObject);
var
  i, j, K, nPoints, errCode : integer;
  s : string;
  d1, d2 : double;
  Arr1, Arr2: array of double;
  TS : TStringList;
begin
  TS := TStringList.Create();
  setlength(Arr1,0);
  setlength(Arr2,0);
  try
    TS.LoadFromFile('DataOfGeorad.txt');

    // найдём первую непустую строчку
    j := 0;
    while (j<=TS.Count-1) and (Length(Trim(TS.Strings[j]))=0) do inc(j);

    if (j<=TS.Count-1) then begin
       // если в 1-й непустой строчке есть текст //n points
       //   то прочитаем количество точек в переменную nPoints
       //  наверняка, эту переменную нужно испльзовать как счётчик,
       //   но в данном примере - эта переменная просто считывается из файла и
       //   дальше не используется! Думаю, что в настоящем файле - эта перменная
       //   определяет, сколько после этого точек будет!
       if Pos('//n points', TS.Strings[j])>0  then begin
          Val(Trim(Copy(TS.Strings[j], 1, Pos('//n points', TS.Strings[j])-1)),
               nPoints, errCode);
          if (errCode=0) then inc(j);
       end;

       // подсчитаем, сколько записей будет в массиве (это количество непустых строчек)
       K := 0;
       for i := j to TS.Count - 1 do begin
          s := Trim(TS.Strings[i]);
          if (length(s)>0)
                and (Pos('   ',s)>0) then
                inc(K);
       end;

       //  зададим длину массивов
       setlength(Arr1, K );
       setlength(Arr2, K );

       // перенесём записи в массивы
       K := 0;
       for i := j to TS.Count - 1 do begin
          s := Trim(TS.Strings[i]);
          if (length(s)>0) and (Pos('   ',s)>0) then begin
              Val(Trim(Copy(s,1, Pos('   ',s))), d1, errCode);
              Arr1[K] := d1;
              Val(Trim(Copy(s,Pos('   ',s), Length(s)-Pos('   ',s))), d2, errCode);
              Arr2[K] := d2;
              inc(K);
          end;
       end;


    end;
  finally
    FreeAndNil(TS);
  end;

  // Отобразим (визуализируем записи в MemoData
  for I := Low(Arr1) to High(Arr1) do
      MemoData.Lines.Append('Arr1 = '+FloatToStr(Arr1[i])+' Arr2 = '+FloatToStr(Arr2[i]));

end;