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

[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]

а сколько тут?

WriteLn(SizeOf(Integer)); { <--- Мне выдает 4 }

Если честно - я не совсем понял смысл того, что ты хочешь сделать (я имею в виду, зачем тебе это пригодится?) - из одного процесса хочешь получить доступ к адресному пространству другого процесса? Тогда см. DRKB, там по-моему описано, как это делать... Просто так это у тебя не получится, я ж говорил тебе что ты получаешь AV.

Добавлено через 1 мин.
P.S.
А ошибку распределения памяти можно вызвать (RunError + номер ошибки), а не создавать искусственно.

[compiler]

WriteLn(SizeOf(Integer)); { <--- Мне выдает 4 }

а мне 2 , а вот для LongInt - 4... надо будет наверно спросить на форуме FP.. и создать тему в 32 битных компиляторах что б другии люди тоже по тестировали. Что думаешь?

Если честно - я не совсем понял смысл того, что ты хочешь сделать ... Просто так это у тебя не получится, я ж говорил тебе что ты получаешь AV.

что б больше такое не писать

А ошибку распределения памяти можно вызвать (RunError + номер ошибки), а не создавать искусственно.

а по подробнее можна...

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