адрес указателя, вызвать ошибку.. Опции

[compiler]

Хотелось бы написать программку которая вызывала ошибку в распределении памяти...
для этого я хочу написать 3 проги . первая - читает число(в указатель), адрес указателя пишет в файл, ждет действия второй програмки(которая будет пытаться прочитать/изменить значения указателя) и печатает это же число.
первую програмку я то написал но с ошибками

var
	p  : ^integer;
	ad: integer;
	f  :file of integer;
begin
	Assign(f,'file.txt');
	Rewrite(f);
	
	New(p);
	readln(p^);
	
	ad:=Addr(p);  //ошибка, можна конечно прать отдельно сигмент и сдвиг но это не то...
	write(f, ad);
	
	Close(f);
	
	(*readln; read;*)
        while IOResult = 0                    //замена, пока файл не удален другой программой, 
		do {$I-} Reset(f); {$I+}   //будем надеятся у нее это получится

	
writeln(p^);
	
	readln;
	read;
end.
 

заранее благодарен.

добавлено (вторая программа+в первой уничтожена одна переменная)

var
	p  : ^integer;
	f  :file of integer;
begin
	Assign(f,'file.txt');
	Reset(f);
	
	New(p);
	read(f, p); 
	
	Erase(f);
end.

Сообщение отредактировано: compiler - 27.05.2007 15:12

[volvo]

Ты можешь мне объяснить, ЧЕГО ты хочешь добиться??? (словами, без этого бреда, который ты тут написал?)

Ну, допустим, вначале запускается программа, СОЗДАЮЩАЯ файл... Хорошо, запустил я ее... Ввел число... Что дальше происходит, ты подумал? Что ты пишешь в файл? Указатель на указатель на LongInt? Допустим... Только учти, что этот указатель, который ты пишешь - он валиден только в той программе, в которой было выделение памяти. Другая программа - другой процесс, другое адресное пространство...

Хорошо, забудем про это на секунду...

Что ты делаешь дальше (и, соответственно, что должен делать я, чтобы повторить полученный тобой результат?) - закрыл файл... Допустим, это тебе разрешат сделать... Дальше что? Ты переоткрываешь файл, пока он переоткрывается, т.е., по твоей задумке - пока вторая программа его не удалит? А кто ей даст удалить файл, занятый другим процессом, ты не подумал? Ты моментально получишь AccessDenied даже при попытке Reset-а!

Забудем и про это... Теперь, по твоей задумке, я должен запустить вторую программу, так? Которая у тебя почему-то приведена первой (ты бы хоть комментарии оставлял, что запускать когда, здесь не форум телепатов, все-таки). Хорошо, запустил. Дальше что? Прочел из файла значение в переменную L... Ты не забыл, что там записано? Я тебе напомню, указатель на указатель на LongInt. Что ты делаешь с L? Печатаешь его? И что ты хотел получить? Тебе если на то пошло надо печатать вот это:

type
  plongint = ^longint;
  pplongint = ^plongint;

var
  p: plongint;
  f: file of longint;
  l: longint;
begin
...
  read(f, l);
  p := pplongint(l)^;
  write(p^); // Вот это ты должен печатать !!! 
...
end.

Но вся эта цепочка, которую ты задумал, прервется гораздо раньше - по Access Denied при попытке открытия файла, занятого другим приложением.

У тебя еще есть желание продолжать эти изыскания?