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

[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 19:12

[volvo]

Appendix D

D.3 Delphi mode
...
5. The Objpas unit is loaded right after the system unit. One of the consequences of this is that
the type Integer is redefined as Longint.
...

D.5 ObjFPC mode
...
5. The Objpas unit is loaded right after the system unit. One of the consequences of this is that the type Integer is redefined as Longint.
...

Во всех остальных случаях размеры Integer и LongInt НЕ совпадают...

[compiler]

размер Pointer, как я теперь понял 4 поэтому буду использовать LongInt...

[compiler]

а как присвоить адрес указателю?

var
	p  : ^longint;      //указатель
	f  :file of longint; //файл
	l:longint;            //число
begin
	Assign(f,'file.txt');//связываем файл с переменной
	Reset(f);            //откпываем файл
	
	New(p);             //инициализация
	
	read(f, l);           //читаем адрес сфайла
		p:=@l;      //должно быть присваевыванние указателю адрес(уже понял-забыл @ )
	write(l);
	Erase(f);             //удаляем файл
	readln;
	read;
end.

а вот моя главная программа

var
	p  : ^longint;
	ad: longint;
	f  :file of 	longint;
begin
	Assign(f,'file.txt');
	Rewrite(f);
	
	New(p);
	readln(p^);
	
	ad:=longint(Addr(p));
	write(f, ad);
	
	Close(f);
	{$I-}
	while IOResult = 0
		do  Reset(f); 
	{$I+}
	writeln(p^);
	
	readln;
	read;
end.

только как-то не так работает... вместо числа введенного в первой программе , вторая печатает каккуету стрелочку...

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