[jedi2000]

Добрый день!
Помогите, пожалуйста, разобраться, почему я получаю в переменной pi одно и то же значение ? Код надуманный, просто чтобы понять проблему:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm1.Button1Click(Sender: TObject); var  L: TList;  pi: PInteger;  i: Integer;  ii: Integer;   begin   L:=TList.Create;   for i := 0 to 5 do   begin     New(pi);     pi^:=10*i;     L.Insert(i,pi); //так тоже делал: L.Add(pi);     Dispose(pi);   end;     for i := 0 to L.Count - 1 do   begin     pi:=nil;     pi:=PInteger(L.Items[i]);     ii:=pi^;     tag:=ii;   end; end;

Админ: Пользуемся тегами для оформления кода!

У меня все время pi указывает на значение 50. А хотелось бы получить все значения из списка. Не могу понять, в чем дело?
Заранее благодарю.

[jedi2000]

Прошу прощение, не знаю как удалить топик.
В общем, сам разобрался, проблема в том что я освобождал память, выделенную под указатель, в итоге элементы списка ни на что не указывали.
Т.е. строчку
Dispose(pi);
нужно убрать

[angvelem]

Ты ведь добавляешь указатели и тут же их удаляешь

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

var   pibuf : array of PInteger;   procedure TForm3.Button1Click(Sender: TObject); var   L    : TList;   pi   : PInteger;   I, J : Integer; begin   L := TList.Create;   for I := 0 to 5 do   begin     SetLength(pibuf, I + 1);     New(pibuf[i]);     pibuf[i]^ := 10 * I;     L.Insert(I, pibuf[i]); //так тоже делал: L.Add(pi); //    Dispose(pi);   end;     for I := 0 to L.Count - 1 do   begin     pi := PInteger(L.Items[i]);     J  := pi^;     Tag := J;   end; end;

Dispose сделай в OnDestroy для всех созданных указателей.

[PiNo_4eT]

TList тут! http://ecodiet.ru/diety/grechnevaya_dieta.html

[angvelem]

А ничего, что полгода прошло.

[YVitaliy]

Ладно полгода, но искать TList в гречневой диете (судя по имени ссылки)