массивы и строковые данные

[radiokarazinec]

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

[Arigato]

Сообщение от radiokarazinec

Пожалуйста желательно с кодом

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

[radiokarazinec]

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

[Человек_Борща]

Держи сабж:

const
  Delim='    ';

var
  //2 массива строк длинной в 36 строк
  Arr1,arr2:array[0..35] of string;

function FirstToArr1(s:string):string;
begin
  //Копируем первую часть строки
Result:=Copy(s,1,AnsiPos(Delim,s));
end;

function secondToArr2(s:string):string;
begin
  //Удаляем первую часть строки + делтель, остальное в результат
System.Delete(s, 1, Pos(Delim, s));
Result:=s;
end;

procedure Inpup;
var
  i:Integer;
begin
for i:=0 to 35 do
begin
Form1.ListBox1.Items.Add(Arr1[i]);
Form1.ListBox2.Items.Add(Arr2[i]);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ts:TStringList;
  i:Integer;
  myDir:string;
begin
  myDir:=ExtractFilePath(ParamStr(0));
  ts:=TStringList.Create;
  try
  ts.LoadFromFile(myDir+'Data.txt');
  for i:=0 to ts.Count -1 do
  begin
    //Заполняем массивы
  Arr1[i]:=FirstToArr1(ts.Strings[i]);
  Arr2[i]:=secondToArr2(ts.Strings[i]);
  end;
  Inpup;
  finally
  ts.Free;
  end;
end;

На форме 1 кнопка и 2 ListBox


З.Ы. А что сильно критично именно " " или может лочше знак | ?

Думаю реализовать график вы и сами в состоянии =)

[radiokarazinec]

а что это за процедура Inpup и как эти два массива записать в 2 txt-фала?

[Человек_Борща]

процедура inpup просто заполняет listbox'ы данными из каждого массива отдельно.
Навание процедуры от балды придумано.

Как сохранить?
Просто, солодаём 2 объекта StringList, и переменную i - это наш счётчик.
Далее перебираем элкменты обоих массивов т.е. чикл for..to..do повторяется 36 раз (от 0 до 35).
Внутри этого цикла в каждый StringList записываем данные из массивов.
Затем после цикла сохраняем оба StringList'а в разные файлы. Получаем желаемый сабж.

[radiokarazinec]

так а как сохранить в два разных текстовых файла, ну напиши, плиз

[radiokarazinec]

оно мне выбивает типа ошибку, окно Debugger Exception Notification

[Человек_Борща]

Ваш ошибочный код, и текст ошибки в студию. Покажу вам где ваша ошибка. Халявы не даю.

[radiokarazinec]

так я ваш и скопировал
извини я нашел свою ошибку, ну скажи как записать в 2 текстовых файла?