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

[radiokarazinec]

А как мне эти 2 массива записать в 2 текстовых файла?

[radiokarazinec]

и если можно построить график по этим двум массивам?

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

Станно, ТС создал 2 темы и в обоих Тс'у нужно одно и тоже!

http://programmersforum.ru/showthread.php?t=139369

при том что там уже дали код сортировки и рассказали(словесно) процедуру сохранения.


p.S. ТС вам не кажется что пытаетесь решить свою задачу "чужими" мозгами?

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

[radiokarazinec]

вот есть листинг

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  Delim='    ';


var
  Form1: TForm1;


implementation

{$R *.dfm}
var
Arr1,arr2:array[0..39] 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, AnsiPos(Delim, s));
Result:=s;
end;

procedure Inpup;
var
  i:Integer;
begin
for i:=0 to 39 do
begin
Form1.ListBox1.Items.Add(Arr1[i]);
Form1.ListBox2.Items.Add(Arr2[i]);
end;
for i:=0 to 39 do
Form1.ListBox1.Items.Delete(i);
for i:=0 to 2 do
Form1.ListBox2.Items.Delete(i);
Form1.ListBox1.Items.SaveToFile('1.txt');
Form1.ListBox2.Items.SaveToFile('2.txt');
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;

end.

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

[ArtGrek]

ты думаеш чем больше раз ты создаш тему тем больше тебе ответят? ет 4 раз?
оформи код как надо

[radiokarazinec]

так позарез надо, препод прибъет, если бы нас еще и учили, а так сказали сделать и принести

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

Что это?

у меня есть один текстовый файл, в котором 2 колонки данных, до них 6 строчек пустых( в дальнейшем для всякого текста а вот потом 2 колонки, мне надо из одного текстового файла, эти 2 колонки записать в отдельные массивы а потом в 2 разных текстовых файла, тут это реализовано, по ходу, но сделать чтобы убрать эти 6 строчек в массивах и текстовых файлах далнейших, т.к второй массив захватывает данные первого из-за этого, да и еще, там делитель между колонками 4 пробела вот этот файл на всякий случай

Сага о x,y,z?
Можно по русски обьяснить задачу?

И предыдущих тем поняол что вам надо из файла загрузить текст и разделить его на 2 массива. Затем массивы сохранить в файлы.

[radiokarazinec]

ну да эт все правильно, но в исходном текстовом файле перед тем как начинаются колонки с данными 6 пустых строк, и когда мы делим на 2 массива они ж никуда не исчезают.

[ArtGrek]

ну начни цикл при считывании не с 0 а с 6, или как у тебя в коде шас гляну

тебе так срочно задачу надо, неужели сложно на форум заливать фаилы, что б желаюшие помоч с паролями не возились

[ArtGrek]

ето для чего?

for i:=0 to 39 do
Form1.ListBox1.Items.Delete(i);