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

[Lubawa]

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

ОбЪяви в проге ДВА файла, f и g:
f: text;
g: file of person;

Открой f на чтение, g на запись. Читай из f, записывай в g. Если хочешь, чтоб g имел то же имя, что и было у f, то сначала закрой f, а потом открой g.

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

[TinMan]

Люб, ты вникаешь в то, что тебе пишут вообще? Я посмотрел тему, Леший тебе все написал подробно. На мою фразу твой ответ тоже ни в красную армию..

Ты НЕ ОТКРЫВАЕШЬ на чтение текстовый. У тебя ВООБЩЕ НЕТ в программе текстового файла. Текстовый - это который в разделе var описан как text. Пойми, что тебе нужно ДВЕ файловых переменных (я написал выше, как, и Леший писал тоже).

Я тебе немного попозже напишу прогу с пояснениями. Я вижу, что ты вроде хочешь разобраться. Но только пойми: не надо повторять, что тебе НАДО. Надо пытаться понять ПРОЦЕСС в деталях. Если ты и дальше будешь писать "мне необходимо", то ты это самое необходимое не получишь. Ты стоишь перед стеной и твердишь: "Мне необходимо пройти!!". А нужно посмотреть вокруг и поискать дверь..

[Lubawa]

Да в последней программе я не написала текстовый файл, но в предыдущих он у меня открыт и объявлен. Я пытаюсь вникнуть в то что мне пишут. Буду очень благодарна за прогу с пояснениями.

[Serge_Bliznykov]

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

Вам TinMan дал абсолютно корректный совет.
Если Вам выдаётся ошибка, значит, либо Вы что-то не так делаете, либо файлы у Вас не являются такими, за каких Вы их считаете! (в первую очередь - речь идёт о текстовом файле..)


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

[Lubawa]

 program lab1;

type
  person = record
    fam: string[15];
    sex: char;
    ball: string[4];
    sr:real;
  end;
var
 A:array [1..10] of person;
 finput: text;
 typefile: file of person;
 i:integer;
 S: person;

 Begin
 assign(finput,'lab_in.txt');
 reset(finput);
 assign(typefile,'tan.txt');
 rewrite(typefile);
 while not eof(finput) do begin
 with s do begin
 read(finput,s);
 if s.fam[length(s.fam)]<>' 'then
 s.fam:=s.fam+' ';
 write(typefile,s.fam);
 writeln(typefile);
 end;
 end;
 close(finput);
 close(typefile);
 end.

пример текстового файла я написала в 3 сообщении.

[Serge_Bliznykov]

смотрите. файл ТЕКСТОВЫЙ ?
Так как же Вы из него можете прочитать переменную типа Person ?!

ошибка в этой строке:

read(finput,s);

[Son Of Pain]

Ты пытаешься читать структуры из текстового файла и писать строки в типизированный. А нужно все делать наоборот )

[Serge_Bliznykov]

ну, вот, как и обещал.
готовое решение.

program lab1;

type
  person = record
    fam: string[15];
    sex: char;
    ball: string[4];
    sr: real;
  end;
var
  finput: text;
  typefile: file of person;
  i: integer;
  OneP: person;
  sIn : string;

begin
  assign(finput, 'lab_in.txt');
  reset(finput);
  assign(typefile, 'tan.bin');
  rewrite(typefile);

  i:=0; {счётчик записей в типизированном файле}
  while not eof(finput) do begin

     {обнулим все поля записи}
     with OneP do begin
       fam := ''; sex := ' '; ball := '';
       sr := 0.0;
     end;

     {прочитаем строчку из текстового файла}
     readln(finput, sIn);

     {удалим ведущие пробелы, если они есть}
      while (Length(sIn)>1) and (sIn[1]=' ') do delete(sIn,1,1);

     {разберём прочитанную строчку на элементы}
     if Pos(' ', sIn)>1 then begin
        OneP.fam := Copy(sIn, 1, Pos(' ', sIn)-1);

        {возьмём остаток строки всё, что после первого пробела}
        sIn := Copy(sIn, Pos(' ', sIn)+1, Length(sIn) - Pos(' ', sIn));

        {удалим ведущие пробелы, если они есть}
        while (Length(sIn)>1) and (sIn[1]=' ') do delete(sIn,1,1);

        OneP.sex := sIn[1];
        delete(sIn,1,1); {удалим из строки пол}

        {удалим ведущие пробелы, если они есть}
        while (Length(sIn)>1) and (sIn[1]=' ') do delete(sIn,1,1);

        OneP.Ball := Copy(sIn, 1, 4);

     end;

     if length(OneP.fam)>0 then begin
         write(typefile, OneP);
         inc(i);
     end;

  end;
  close(finput);
  close(typefile);
  WriteLn('Всего в файл было записано ',i,' записей.');
  Readln;
end.

попробуй разобраться.
если что-то непонятно - спрашивай..

[Lubawa]

Всё понятно. Спасибо огромное.