Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Убрать ошибку в паскале

63K
22 мая 2012 года
4итер
18 / / 17.05.2012
Здравствуйте, мне нужно изменить данную процедуру.
Нужно чтобы программа сама создавала файл, генерировала значения, и записывала их в него.
наброски есть, но почему то вылазиет ошибка. помогите пожалуйста


Код:
procedure ReadFromTxt(var Matr: TMatr);
const
  Direction = 'W:\File.dat';
var
 
  i, j: Byte;
  a,a1:integer;
begin
randomize;
  Assign(FileCh, 'С:\File.dat');
  rewrite(FileCh);
 
  for i:=1 to sqr(Max_Value) do begin
  a:=random(65535)-32767;
  write (FileCh,a);
  end;
  close(FileCh);
  reset(FileCh);
  for i:=1 to Max_Value do
    for j:=1 to Max_Value do  begin
      read(FileCh,a1);
      Matr[i, j]:=a1; end;
  Close(FileCh);
end;
465
22 мая 2012 года
QWERYTY
595 / / 25.03.2012
Ошибка то вылазит какая?

Вопрос про ошибку, а саму ошибку скрываете.
63K
22 мая 2012 года
4итер
18 / / 17.05.2012
100: error read disk
252
22 мая 2012 года
koderAlex
1.4K / / 07.09.2005
" Direction = 'W:\File.dat'; " - это к чему ?
63K
22 мая 2012 года
4итер
18 / / 17.05.2012
это так остатки предыдущей программы, забыл удалить
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог