как записать в файл и считать потом из него три массива с числами

[racushka_n]

Доброго времени суток.
Стоит такая задача:
есть три динамических массива Y[n],Cr[n/2],Cb[n/2] (n заранее не известна) с вещественными числами в них,
нужно записать их в файл поочередно через запятую,
т.е. Y[],Cr[],Cb[], после чего снова вычислить новые значения этих массивов и записать новые значения в следующую строку.
Кол-во строк m, соответсвенно кол-во вычислений также равно m.
После того как все строки будут заполнены файл сохраняется в namefile.rle.
Затем нужно считать строки из этого файла в таком порядке: загрузить первую строку в массивы Y,Cr,Cb использовать эти значения, загрузить вторую строку и т.д.
Подскажите как это можно сделать, с файлами никогда не работала и с динамическими массивами тоже.

[Stilet]

Файлы именно текстовые? Может проще бинарный нетипированный файл?
Или задача так и стоит - "Текстовые файлы"?

[racushka_n]

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

Файлы именно текстовые? Может проще бинарный нетипированный файл?
Или задача так и стоит - "Текстовые файлы"?

А где у меня написано текстовый файл? В файле будет не текст а числа, и считывать нужно будет числа, а не символы. Файл будет с типом .rle
Его не нужно будет открывать в других программах, только при помощи мною написанной=)

[Stilet]

А где у меня написано текстовый файл?

Вот тут:

нужно записать их в файл поочередно через запятую

И тут:

и записать новые значения в следующую строку.

Строки подразумевают текстовый файл. В типизированных и нетипизированных строк фактически нет, т.е. к ним такое понятие не применяется.

не текст а числа

Вот самый главный вопрос - в каком виде? В удобочитаемом для человека или для машины.

[racushka_n]

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

Строки подразумевают текстовый файл. В типизированных и нетипизированных строк фактически нет, т.е. к ним такое понятие не применяется.

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

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

Вот самый главный вопрос - в каком виде? В удобочитаемом для человека или для машины.

для машины (чтобы использовать в декодере той же программы) отдельно от написанной программы файл не будет представлять из себя никакой ценности=)

[Serge_Bliznykov]

примерно так можно:

procedure TForm1.buttonSaveClick(Sender: TObject);
var rArr : array of double;
    i, n : integer;
    TfS1 : TFileStream;
begin
  // заполнениние массива
  n := 10;
  SetLength(rArr, n);

  for i:=0 to n-1 do
     rArr[i] := i*10/3;

// сохранить в файл
   TfS1 := TFileStream.Create('namefile.rle',fmCreate   );
   // сначала запишем число записей
   TfS1.Write(n, SizeOf(integer));

   // теперь по очередно все записи
   for i:=0 to n-1 do
     TfS1.Write(rArr[i], SizeOf(double));

   // закроем файл (и осбоводим файловую переменную)
   FreeAndNil(TfS1);


end;

procedure TForm1.buttonLoadClick(Sender: TObject);
var rArr : array of double;
    i, n : integer;
    TfS1 : TFileStream;
begin
   //открываем на чтение
   TfS1 := TFileStream.Create('namefile.rle', fmOpenRead	 );
   // сначала прочитаем число записей
   TfS1.Read(n, SizeOf(integer));

   // установим длину массива
   SetLength(rArr, n);

   // теперь по очередно все записи
   for i:=0 to n-1 do
     TfS1.Read(rArr[i], SizeOf(double));

   // закроем файл (и осбоводим файловую переменную)
   FreeAndNil(TfS1);

   // для отладки выведем данные в мемо;
   Memo1.Lines.clear;
   Memo1.Lines.Append('число записей: '+IntToStr(n));
   for i:=0 to n-1 do
      Memo1.Lines.Append(FloatToStr(rArr[i]));

end;

[racushka_n]

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

примерно так можно:

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

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

Serge_Bliznykov, можно проще

Tfs1.Write(rArr[0],Length(rArr)*SizeOf(rArr[0]));

и не надо цикла

[Serge_Bliznykov]

Сообщение от Пепел Феникса

Tfs1.Write(rArr[0],Length(rArr)*SizeOf(rArr[0]));

и не надо цикла

я, когда писал пример, думал об этом варианте. Но решил, что надёжность важнее.
Ибо!
ой. не играл бы я в эти игры с памятью. У Вас есть Уверенность, что в динамических массивах память выделяется последовательно? Всегда? Если на миллион чисел выделить динамический массивчик, то все элемены будут строго последовательно в памяти располагаться? Об этом есть информация в документации (у борлада, или, хотя бы у Стив Тейксейра, Ксавье Пачеко или у Марко Кэнту) ?!

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

а можно, пожалуйста, тоже самое только для одного массива, в котором k целых чисел.

racushka_n,
не, ну это несерьёзно..
Ну неужели совсем-совсем ничего не понятно из моего примера? Я даже комментарии старался/писал.. и всё напрасно?

procedure TForm1.buttonSaveClick(Sender: TObject);
var Mas : array of integer;
    i, k : integer;
    TfS1 : TFileStream;
begin
  // зададим размер массива
  k := 10;
  SetLength(Mas, k);

  {заполнение массива последовательно числами 0, 1, 2.... K-1}
  for i:=0 to k-1 do
     Mas[i] := i;

// сохранить в файл
   TfS1 := TFileStream.Create('namefile.rle',fmCreate   );
   // сначала запишем число записей
   TfS1.Write(k, SizeOf(integer));

   // теперь по очередно все записи
   for i:=0 to k-1 do
     TfS1.Write(Mas[i], SizeOf(integer));

   // закроем файл (и освободим файловую переменную)
   FreeAndNil(TfS1);


end;

procedure TForm1.buttonLoadClick(Sender: TObject);
var Mas : array of integer;
    i, k : integer;
    TfS1 : TFileStream;
begin
   //открываем на чтение
   TfS1 := TFileStream.Create('namefile.rle', fmOpenRead	 );
   // сначала прочитаем число записей
   TfS1.Read(k, SizeOf(integer));

   // установим длину массива
   SetLength(Mas, k);

   // теперь по очередно все записи
   for i:=0 to k-1 do
     TfS1.Read(Mas[i], SizeOf(integer));

   // закроем файл (и освободим файловую переменную)
   FreeAndNil(TfS1);

   // для отладки выведем данные в мемо;
   Memo1.Lines.clear;
   Memo1.Lines.Append('число записей: '+IntToStr(k));
   for i:=0 to k-1 do
      Memo1.Lines.Append(IntToStr(Mas[i]));

end;

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

про массив есть увереность, ибо сам смысл слова массив
в Делфи и С это всегда область памяти.

а не последовательно, это список уже всетаки.

Если на миллион чисел выделить динамический массивчик, то все элемены будут строго последовательно в памяти располагаться?

ну если памяти хватит, то да.

скорее всего и в шарпе так же, но так как там нет указателей, то и игр с памятью нет.