Динамический массив

[Lemo]

Задача такова:Создать динамический массив, записать его в файл, потом считать его с файла и вывести в мемо...

program Project2;
{$APPTYPE CONSOLE}

uses
  SysUtils,math;


type
  Dysc=record
     KodCycl:integer;
     NazvCycl:string[80];
     ObsCyclCred:real;
     KilkDyscCycl:integer;
     KursRob:boolean;
  end;
  Mas=array of Dysc;

 const
  N=7;
var
  G       :Mas;
  P       :Dysc;
  I, J    :integer;
  RecFile: file of Dysc;




begin

  SetLength(G,N);

  G[0].KodCycl:=1; G[0].NazvCycl:='Gumanitarni & social`no-economi4ni disciplini ';  G[0].ObsCyclCred:=23.0; G[0].KilkDyscCycl:=15; G[0].KursRob:=false;
  G[1].KodCycl:=7; G[1].NazvCycl:='Disciplini ta dodatkovi platni poslugi ';  G[1].ObsCyclCred:=4.0; G[1].KilkDyscCycl:=2; G[1].KursRob:=false;
  G[2].KodCycl:=2; G[2].NazvCycl:='Fundamental`ni disciplini ';  G[2].ObsCyclCred:=26.0; G[2].KilkDyscCycl:=7; G[2].KursRob:=true;
  G[3].KodCycl:=3; G[3].NazvCycl:='Normativni prof-orientovani disciplini ';  G[3].ObsCyclCred:=34.0; G[3].KilkDyscCycl:=16; G[3].KursRob:=true;
  G[4].KodCycl:=5; G[4].NazvCycl:='Vibirkovi p-o samostiynogo viboru VNZ ';  G[4].ObsCyclCred:=26; G[4].KilkDyscCycl:=12; G[4].KursRob:=true;
  G[5].KodCycl:=4; G[5].NazvCycl:='Vibirkovi p-o disciplini za perelikom ';  G[5].ObsCyclCred:=14; G[5].KilkDyscCycl:=6; G[5].KursRob:=false;
  G[6].KodCycl:=8; G[6].NazvCycl:='Disciplini naglyadovoi radu ';  G[6].ObsCyclCred:=2; G[6].KilkDyscCycl:=1; G[6].KursRob:=false;

  AssignFile(RecFile, 'MYREC.txt');
  ReWrite(RecFile);
  for i := 0 to n do
  begin
    Write(RecFile, G[i]);
      end;
 // CloseFile(RecFile);

  i:=0;

 while not eof(RecFile) do

  begin

 memo1.lines.add(  Текст из файла );                          
  end;



end.

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

1 Gumanitarni & social`no-economi4ni disciplini   23.0   15  false
                      ...............

[mMAg]

Lemo А что конкретно тебя не устраивает в таком варианте, как у тебя? Мне кажется, что этот код работает корректно. Ой, ой, на ты его для чтения повторно открываешь после сохранения, я надеюсь?

[Lemo]

Записывает в файл не коректно (рисунок же прикрепил)

[mMAg]

Записывает в файл не коректно (рисунок же прикрепил)

С чего это ты взял, что файл некорректно записывается? Ты с него считывать пытался? Заполняет твою запись корректно?
Что-то мне подсказывает, что для получения корректного отображения файла в блокноте вам нужно использовать не типизированный, а текстовый файл.

[spamer]

Вроде что то такое:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  N=7;

type
  Dysc=record
     KodCycl:integer;
     NazvCycl:string[100];
     ObsCyclCred:real;
     KilkDyscCycl:integer;
     KursRob:boolean;
  end;


var
  Form1: TForm1;

var
  G       : array of Dysc;
  i       :integer;
  RecFile: file of Dysc;

implementation

{$R *.dfm}

//Запись
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLength(G,N);
  G[0].KodCycl:=1; G[0].NazvCycl:='Gumanitarni & social`no-economi4ni disciplini ';  G[0].ObsCyclCred:=23.0; G[0].KilkDyscCycl:=15; G[0].KursRob:=false;
  G[1].KodCycl:=7; G[1].NazvCycl:='Disciplini ta dodatkovi platni poslugi ';  G[1].ObsCyclCred:=4.0; G[1].KilkDyscCycl:=2; G[1].KursRob:=false;
  G[2].KodCycl:=2; G[2].NazvCycl:='Fundamental`ni disciplini ';  G[2].ObsCyclCred:=26.0; G[2].KilkDyscCycl:=7; G[2].KursRob:=true;
  G[3].KodCycl:=3; G[3].NazvCycl:='Normativni prof-orientovani disciplini ';  G[3].ObsCyclCred:=34.0; G[3].KilkDyscCycl:=16; G[3].KursRob:=true;
  G[4].KodCycl:=5; G[4].NazvCycl:='Vibirkovi p-o samostiynogo viboru VNZ ';  G[4].ObsCyclCred:=26; G[4].KilkDyscCycl:=12; G[4].KursRob:=true;
  G[5].KodCycl:=4; G[5].NazvCycl:='Vibirkovi p-o disciplini za perelikom ';  G[5].ObsCyclCred:=14; G[5].KilkDyscCycl:=6; G[5].KursRob:=false;
  G[6].KodCycl:=8; G[6].NazvCycl:='Disciplini naglyadovoi radu ';  G[6].ObsCyclCred:=2; G[6].KilkDyscCycl:=1; G[6].KursRob:=false;

AssignFile(RecFile,'C:\\111.txt');
rewrite(RecFile);
for i:=0 to n-1 do
  Write(RecFile,G[i]);
CloseFile(RecFile);


end;

//Чтение
procedure TForm1.Button2Click(Sender: TObject);
begin
SetLength(G,N);
AssignFile(RecFile,'C:\\111.txt');
reset(RecFile);
for i:=0 to n-1 do
  Read(RecFile,G[i]);

//Выводим значения только 0-й (тобиш 1-й) записи из массива. Для остального можно сделать цикл
Memo1.Lines.Add(IntToStr(G[0].KodCycl));
Memo1.Lines.Add(G[0].NazvCycl);
Memo1.Lines.Add(FloatToStr(G[0].ObsCyclCred));
Memo1.Lines.Add(IntToStr(G[0].KilkDyscCycl));
Memo1.Lines.Add(BoolToStr(G[0].KursRob,true));
CloseFile(RecFile);
end;

end.

[SuperVisor]

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

Записывает в файл не коректно (рисунок же прикрепил)

Дело в том, что вы используете типизированный файл, а в качестве типа используете запись. Т.е. файл ваш - последовательность записей Dysc.
Каждая подобная запись использует определенное количество места на жестком диске/памяти, а если быть точнее - ее составляющие.

  KodCycl:integer; - 4 байта
  NazvCycl:string[100]; - 101 байт
  ObsCyclCred:real; - 8 байт 
  KilkDyscCycl:integer; - 4 байта
  KursRob:boolean; - 1 байт

NazvCycl:string[100]; - 101 байт???? Почему 101, спросите вы? Да, именно 101, т.к. при работе со строками мы совсем забываем, что строка это набор символов, а иными словами - array of char. Дак вот когда мы объявляем переменную string[100], компилятор воспринимает это как array [0..100] of char. 101 элемент * размер char (1 байт) = 101 байт.
Итого, ваша запись использует 118 байт памяти. Физически используется 128 байт: +7 нулевых байт после строки - на самом деле компилятор выделяет под строку такое количество байт, при котором бы она заканчивалась на любом восьмом байте (0F,17,586F)
Т.е

размер_строки := размер_строки + ((байт_начала_строки + размер_строки -1) mod 8)

+ 3 байта окончания записи - аналогичная строкам ситуация.

if (размер_записи mod 8) <> 0 then размер_записи := размер_записи + 8 - (размер_записи mod 8)

Почему же так? Честно - не могу сказать, думаю дело в чтении/объявлении на низком уровне - это лучше спросить у наших асмеров.. =))
Далее по теме: для того, чтобы любая запись могла быть корректно изменена - она занимает максимальное количество байт в файле, который вы создаете - 128 в нашем случае. Все данные идут последовательно: сначала 4 байта KodCycl, после 108 байт NazvCycl, после 8 байт ObsCyclCred... Думаю, принцип понятен: компилятор записывает байты - оттого такая визуальная читабельность текста, однако машинная читаемость прелестная. ))
А если уж вам необходимо, чтобы текст был читабелен и визуально, ну что ж - записывайте данные в текстовый файл при том текстом (что значительно увеличит размеры файла - в нашем случае для строки используется 108(!!!) байт из 128), как вам предложил mMag. Используйте байт-сепараторы, к примеру, и делайте запись и чтение/парсинг каждой строки своими силами. Только вопрос: А оно вам надо? Код-то работает. =)))