Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2018.12.23;
Скачать: CL | DM;

Вниз

чтение из файла и запись   Найти похожие ветки 

 
Arthur   (2016-09-29 02:55) [0]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var f,g:file of integer;
   x:array of array of integer;
   i,j,n,m,c:integer;
begin
 AssignFile(f,"myfile.txt");
 {$I-}
 Reset(f);
 {$I+};
 if IOResult<>0 then begin
   ShowMessage("файл не найден. прил-е закрыть"); Halt;
 end;
 n:=FileSize(f);
 m:=FileSize(f);
 if (n=0) and (m=0) then begin
   ShowMessage("файл пуст. прил-е закрыть"); CloseFile(f); Halt;
 end;
 AssignFile(g,"youfile.txt");
 Rewrite(g);
 SetLength(x,n,m);
 c:=0;
 for j:=0 to m-1 do
 begin
   for i:=0 to n-1 do
   Read(f,x[i,j]);
   begin
     if x[i,j] mod 2 = 1 then
     c:=c+1;
   end;
   Write(g,c);
   SetLength(x,0,0);
   CloseFile(f); CloseFile(g);
end;
end;

end.


 
Arthur   (2016-09-29 02:59) [1]

после запуска программы и нажатия кнопки выходит ошибка  
Project Project.exe raised exception class EAccessViolation with message "Access violation at address 0045275f in module "Project.exe". Read of address 00000026". Process stoped. use step or run to continue.


 
ВладОшин ©   (2016-09-29 07:58) [2]

дайте комментарии к вашему коду, где и что, по вашему мнению, делается
начиная с
n:=FileSize(f);
m:=FileSize(f);


 
iop ©   (2016-09-29 10:18) [3]

1. вложенный массив не инициализирован
2. x - это одномерный массив.  А это обращение к двумерному x[i,j]


 
Игорь Шевченко ©   (2016-09-29 10:20) [4]


> после запуска программы и нажатия кнопки выходит ошибка
>  
> Project Project.exe raised exception class EAccessViolation
> with message "Access violation at address 0045275f in module
> "Project.exe". Read of address 00000026". Process stoped.
>  use step or run to continue.


Запускай из-под отладчика.



Страницы: 1 вся ветка

Текущий архив: 2018.12.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.004 c
2-1472129362
jcl
2016-08-25 15:49
2018.12.23
Помогите разобраться с потоками в сервисе


4-1290258828
Eraser
2010-11-20 16:13
2018.12.23
Определить под Wine мы или нет


15-1475791274
Германн
2016-10-07 01:01
2018.12.23
Светлая память Анатолию Подгорецкому!


15-1475789401
Юрий
2016-10-07 00:30
2018.12.23
С днем рождения ! 7 октября 2016 пятница


15-1474909200
andrd
2016-09-26 20:00
2018.12.23
Дайте задание :)