Работа с файлами (Delphi).

[bair42]

Ребята, поскажите пожалуйста!
В общем суть задания такова: У нас есть текстовый файл с данными о студентах. Необходимо считать тексовый файл и сформировать в виде записи и записать в типизированный файл.

Вот мои наработка.

type 
   f=text;
tzap=record
     s:string [40]; // ФИО
     year: word; //  Возраст
     oc:array [1..3] of byte; // Оценка 
     sb:real; //   Столбец 
     end;
var
   zap:file of tzap;
   f2:tzap;
   i,n: integer;
   a:char;
   f1:f;
   st:string; //

begin
 writeln (Введи имя файла);
 readln(f1name);

 assign (zap,'a.dat');
 assign(f1,f1name);
 rewrite (zap);
 reset(f1);                            {Открыли текстовый файл}
 while not eof(zap) do             {Пытаюсь открыть сразу 2 файла чтобы по 
 while not eof(f1) do                                           по ходу вписывать информацию в типиз.
  begin                                                              файл}
  st:='';
  begin
   read(f1,a);
  begin
    while  not eoln(f1) do
     begin
      read(f1,a);
     if a in ['a'..'z','A'..'Z'] then  {Выборка ФИО из текст. файла, и запись в 
     with f2 do                                 массив}
     for i:=1 to 1 do
      begin
       s[i]:=a;
       write(s[i]);
         end;
        st:=st+a;
     end;
   write(st);
  end;
   readln;
  end;
  end;
 close(zap);
 close(f1);


readln;
end.

Прошу сильно не ругаться... Проблема в том: Как можно записать мою "выборку ФИО" в запись RECORD?????

Заранее спасибо!


___________
к сожалению тега для оформления кода [code/Delphi]
на форуме нет.
Используйте просто тег [CODE]..[/СODE] (это кнопочка с решёточкой #)

Модератор.

[ProgerWin]

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

type
  tzap = record
    family: String[20];       // Фамилия
    name: String[20];       // Имя
    otchestvo: String[20]; // Отчество
    year: Word;
    oc: array[1..3] of Byte;  
    sd: Real;
  end;

Тогда легче читать из файла

// Чтение записи из файла
procedure TForm1.Button2Click(Sender: TObject);
var
  zap: tzap;
  f: file of tzap;
begin
  AssignFile(f, 'c:\a.dat');
  {$I-}
    Reset(f);
  {$I+}
  if IOResult <> 0 then
  begin
    ShowMessage('Ошибка открытия файла');
    Exit;
  end;

  Read(f, zap); // прочитать одну запись

  Edit1.Text:= zap.family;
  Edit2.Text:= zap.name;
  Edit3.Text:= zap.otchestvo;
  Edit4.Text:= IntToStr(zap.year);

  CloseFile(f);
end;

// Запись в файл
procedure TForm1.Button1Click(Sender: TObject);
var
  zap: tzap;
  f: file of tzap;
begin
  // щаполнение записи
  with zap do
  begin
    family:= Edit1.Text;
    name:= Edit2.Text;
    otchestvo:= Edit3.Text;
    year:= StrToInt(Edit4.Text);
    sd:= StrToFloat(Edit5.Text);
  end;

  AssignFile(f, 'c:\a.dat');
  Reset(f);
  Seek(f, FileSize(f)); // указатель в конец файла
  Write(f, zap);         // запись в файл


  CloseFile(f);
end;