ошибка, после того как я создал запись 'fayl'

[ZhekON]

Кто знает, что за ошыбка :
Type 'fayl' needs finalization - not allowed in file type

выбило после того как я создал запись 'fayl' , и пытался присвоить переменной
F : file of fayl;

[Kostyan]

Скорее всего где-то синтаксическая ошибка проверь текст модуля

[Umen]

Файловой переменно нельзя ничего присваивать. нужно так:

type
     fayl = record
        ...
     end;
 
var
  F: file of fayl;
 
.......
procedure write;
var
  fil: fayl;
begin
    assignFile(F, 'somefile.txt');
    rewrite(F);
    fayl := ......
    write(f, fayl);
    closefile(f);
end;

[ZhekON]

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

Файловой переменно нельзя ничего присваивать. нужно так:

type
     fayl = record
        ...
     end;
 
var
  F: file of fayl;
 
.......
procedure write;
var
  fil: fayl;
begin
    assignFile(F, 'somefile.txt');
    rewrite(F);
    fayl := ......
    write(f, fayl);
    closefile(f);
end;

с этих слов я ничего не понял, вить у меня всё так жэ,
а что за fil вообще непонимаю???

[ЧИЖ]

Все намного проще!!!

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

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

[ZhekON]

есть два string , и вот ещё вопрос :
Как поместить содержымое Memo1(например) в переменную, чтобы потом можно было вернуть всё назад в это жэ Memo???

и что главное, чтобы строки были в том жэ положэнии.
Можэт попробывать динамически както создать их (переменные) , но как их в запись определить?

[ЧИЖ]

ну две твоих строки надо ограничить таким образом: вместо string например string[100] (к-во от 1 до 255) сколько хочешь

а прогой они будут обрабатываться также как и неограниченные

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

[ZhekON]

да, это всё хорошо, но я немного не понимаю, кинь код , а я там ужэ както разберусь

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

[ЧИЖ]

Как я тебе кину код если я незнаю че тебе точно надо,
приколи сначала суть задачи, и описание своего типа fayl,
а я дальше подумаю че тебе сделать

[sis]

type
     fayl = record
        
         ...
     end;
 
var
  F: file of fayl;
 
.......
procedure write;
var
  fil: fayl;
begin
    assignFile(F, 'somefile.txt');
    rewrite(F);
    fayl := ......                //Не у кого подазрений не вызвало???
    write(f, fayl);
    closefile(f);
end;

Как имени типа можно что-то присвоить!? Там должна быть твоя переменная fil!!! И в write тоже!! Т.е.

const lenstr=256;
type
     fayl = record
        s:string[lenstr];
        ...
     end;
 
var
  F: file of fayl;
 
.......
procedure writeFayl;  //к примеру
var
  fil: fayl;
begin
    assignFile(F, 'somefile.txt');
    rewrite(F);
    fil := ......                
    write(f, fil);
    closefile(f);
end;

И конечно динамические структуры надо ограничить явно!Жесткий диск-это не динамический носитель!!! И имя процедуры я бы поменял!!!
Я бы сделал так!!!