Верный ли код для записи из файла в массив посимвольно?

Uses CRT, GrahpABC;

Var

{

Ниже массивы для проверки (словари)

}

StaticOperatorsDictionary:array [0..100] of string;

{

Ниже массивы для записи и обработки данных

}

Input:array[0..99999999] of char;

StringVariables:array of string; //все созданные переменные

IntegerVariables:array of int64; //все созданные переменные

IntegerArrays:array of int64; //все созданные массивы

StringArrays:array of string; //все созданные массивы

LabelsArray:array of string; //все созданные массивы

FileName:Text;

LinkedToFileVar:string;

FilePosition:int64;

Begin

{создание словарей}

StaticOperatorsDictionary[0]:='add';

StaticOperatorsDictionary[1]:='create';

StaticOperatorsDictionary[2]:='delete';

StaticOperatorsDictionary[3]:='copy';

StaticOperatorsDictionary[4]:='in';

StaticOperatorsDictionary[5]:='number';

StaticOperatorsDictionary[6]:='of';

StaticOperatorsDictionary[8]:='element;

StaticOperatorsDictionary[9]:='variable';

StaticOperatorsDictionary[10]:='program';

StaticOperatorsDictionary[11]:='part';

StaticOperatorsDictionary[12]:='random;

StaticOperatorsDictionary[13]:='with';

StaticOperatorsDictionary[14]:='if';

StaticOperatorsDictionary[15]:='loop';

StaticOperatorsDictionary[16]:='run';

StaticOperatorsDictionary[17]:='for';

StaticOperatorsDictionary[18]:='value';

{все, со словарями кончено}

System.Console.WriteLine('Введите имя файла для его запуска:');

Read(FileName);

Assign(LinkedToFileVar,FileName);

While (not EOF) do

Begin

Read(LinkedToFileVar,FilePosition);

FilePosition:=FilePosition+1;

End;

End.

0 2019-09-26 20:22:06

Ответов: 1

//нет.

//для записи в файл используется процедура write (writeln) примерно вот так:

//------------------------------------------------------------------------------­----------------

Uses CRT, GrahpABC;

Var

{

Ниже массивы для проверки (словари)

}

StaticOperatorsDictionary:array [0..100] of string;

{

Ниже массивы для записи и обработки данных

}

Input:array[0..99999999] of char;

StringVariables:array of string; //все созданные переменные

IntegerVariables:array of int64; //все созданные переменные

IntegerArrays:array of int64; //все созданные массивы

StringArrays:array of string; //все созданные массивы

LabelsArray:array of string; //все созданные массивы

FileName:Text;

LinkedToFileVar:string;

FilePosition:int64;

i : integer;

Begin

{создание словарей}

StaticOperatorsDictionary[0]:='add';

StaticOperatorsDictionary[1]:='create';

StaticOperatorsDictionary[2]:='delete';

StaticOperatorsDictionary[3]:='copy';

StaticOperatorsDictionary[4]:='in';

StaticOperatorsDictionary[5]:='number';

StaticOperatorsDictionary[6]:='of';

StaticOperatorsDictionary[8]:='element;

StaticOperatorsDictionary[9]:='variable';

StaticOperatorsDictionary[10]:='program';

StaticOperatorsDictionary[11]:='part';

StaticOperatorsDictionary[12]:='random;

StaticOperatorsDictionary[13]:='with';

StaticOperatorsDictionary[14]:='if';

StaticOperatorsDictionary[15]:='loop';

StaticOperatorsDictionary[16]:='run';

StaticOperatorsDictionary[17]:='for';

StaticOperatorsDictionary[18]:='value';

{все, со словарями кончено}

System.Console.WriteLine('Введите имя файла для его запуска:');

Assign(LinkedToFileVar,FileName);

rewrite(FileName); // открываем файл для добавления. ВНИМАНИЕ - ПОСЛЕ ЭТОЙ КОМАНДЫ - ФАЙЛ ОЧИЩАЕТСЯ !

fot i := 0 to 18 do

Begin

writeln(LinkedToFileVar,StaticOperatorsDictionary[i]);

End;

Close(FileName) // файл записывается на диск. не забывать эту команду, так как после выполнения программы файл может оказаться пустым

End.