[Pavel1988]

Есть элементарная программа которая записывает в текстовый файл набор случайных символов. Выдаёт ошибку 105. На строке Write(Tx1, RndChar);

Код:

procedure TForm1.Button1Click(Sender: TObject);

var Tx1: TextFile;
     LogFile: TextFile;
     Report: string;
     RndNumOfChar: Byte;
     RndChar: Char;

begin
Randomize;
AssignFile(Tx1, 'wea_wea.txt');
Reset(Tx1);
AssignFile(LogFile, 'LogFile.txt');
Rewrite(LogFile);

while not Eof(Tx1)
   do
   begin
   RndNumOfChar := 126 + Random(126);
   RndChar := Chr(RndNumOfChar);
   Write(Tx1, RndChar);
   end;

CloseFile(Tx1);
CloseFile(LogFile);
end;

MAD: теги.