[kaizer131]

Доброго времени суток господа програмисты , кто сможет помочь мне в решении одной задачи,
Суть в следующем, изначально одной переменной присвоенно значение (integer), которое занесенно в память, это значение выводиться на Label,
принажатии на кнопку происходит обращение к этой памяти и
вычитание 1 от ее значения, аналогичная операция прописанна для второй кнопки, и если при нажатии первой результат правильный ,то при нажатии второй выводится неверное значение ,
в чем может быть проблема? Обращение к памяти происходит через указатель.

[Alexo]

ты вычетаешь из адреса единицу? Тогда естественно второй рз резульат уже другой будет.

[kaizer131]

Тогда подскажите, как сделать чтоб переменная приняла новое значение и при нажатии второй кнопки операции проводились именно с новым значением, которое так же нужно будет записать для последующего использования

[Alexo]

код свой приведи...

[kaizer131]

procedure TForm1.Button1Click(Sender: TObject);
var
A : ^Integer;

begin
new(A);
A^:=5;
Inc(A^);
Label1.Caption:=A;


end.

А теперь он еще и ругатсяначал на потенциально опасную процедуру

[Error] Unit1.pas(32): Unsafe pointer variables, parameters or consts only allowed in unsafe procedure

Если поможете буду очень благодарен

[Alexo]

для второго Label тоже самое?

вобще странно вот это не должно было пройти компиляцию

Label1.Caption:=A;

[kaizer131]

там один Label значения в него по переменке выводятся, вот тока сегодня он вообще мне выдал ошибку в строке
A : ^Integer;(обьявление переменных), хотя раньше небыло такого
PS Может вообще не той дорогой иду, может есть другой способ ее реализации?

[Grunch]

Вот так у меня все работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
A : ^Integer;

begin
new(A);
A^:=5;
Inc(A^);
Label1.Caption:=IntToStr(A^);
end;

[xchrom]

ты же каждый раз получается создаешь в памяти новую целую переменную... оттуда и все твои беды

[Alexo]

Вопрос он уже решил по аське