!? Ссылка на класс ?

[KooKish]

Доброго времени суток, есть проблемка. Сделал программу с записями, она работает, всё меня устраивает. Теперь надо эту же программу сделать в виде классов, пытался сделать так же как с записями:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TList=TMyList;
TMyList=class
private
Value: integer;
Index: integer;
Previous: TList;
Next: TList;
protected
Procedure Init;
Procedure AddItem(Value: integer);
Procedure InsertItem(i, j: integer);
Procedure DeleteItem(i: integer);
Procedure Exchange(i, j: integer);
Procedure RemoveItem(Value: integer);
Procedure FindValue(Value: integer);
Procedure Sort;
Function GetCount: integer;
Function ListAsStr: string;
end;

TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
FList: TMyList;
public
{ Public declarations }
end;

var
ChoiceItem, CreatItem: TList;
Form1: TForm1;

implementation

{$R *.dfm}

{ TMyList }

procedure TMyList.AddItem(Value: integer);
begin
if (ChoiceItem = nil) then
begin
New(CreatItem);
CreatItem.Index := 1;
CreatItem.Value := Value;
CreatItem.Previous := nil;
CreatItem.Next := nil;
ChoiceItem := CreatItem;
end
else
begin
New(CreatItem);
CreatItem.Value := Value;
CreatItem.Index := ChoiceItem.Index + 1;
While (ChoiceItem.Next <> nil) do
ChoiceItem := ChoiceItem.Next;
CreatItem.Previous := ChoiceItem;
CreatItem.Next := nil;
ChoiceItem.Next := CreatItem;
end;
end;

....

НО начиная перебирать указатели ChoiceItem.Next не меняет значения и все зацикливается. Это не только в этой процедуре, так везде, как будто .Next и .Previous не передаются новозадонному ChoiceItem. Вообщем я так подозреваю что нельзя так делать с классами и придется делать constructor destructor и все переделывать, или я ошибаюсь?
P.S. Я не прошу писать мне программу, просто хочу понять, где я что упустил. Заранее благодарен.

[Sciv]

Потому что "крышку" забыл закрыть:

TList=^TMyList;

Далее: TList - это стандартный класс дельфи, наследующий у TObject. Может случиться конфуз, так что переименуй-ка ты его от греха подальше

[KooKish]

Вообщем у меня крыжик стоял, я просто химичил, назад забыл вернуть, но его добавление и изменение имени TList не привело к положительному результату (( я уже 3 часа по интернету лажу, ничего дельного найти не могу... Я просто понять немогу почему передавая ChoiceItem := ChoiceItem.Next ChoiceItem становится следующим указателем а ChoiceItem.Next так и остается ссылкой, получается уже на этот же указатель и происходит зацикливание...

[Sciv]

Естественно, не привело - в коде крыжик тоже надо возвращать на место:

CreatItem^.Value := Value;
CreatItem^.Index := ChoiceItem.Index + 1;
While (ChoiceItem^.Next <> nil) do
ChoiceItem^ := ChoiceItem^.Next;
CreatItem^.Previous := ChoiceItem;
CreatItem^.Next := nil;
ChoiceItem^.Next := CreatItem;

[KooKish]

ChoiceItem^ := ChoiceItem^.Next;

хм, разве так можно ??? Ругается на разность типов.

[Sciv]

ChoiceItem := ChoiceItem^.Next;

Моя опечатка, так пробуйте

[KooKish]

Вообщем, не помогло. Есть еще идеи? может в описании дело ??? У меня уже крыша ехать начинает) Кстати в списках у меня и без крыжиков работает все

[KooKish]

Я тут заметил, при вводе 2 элемента CreatItem^.Next := nil не присваетвает ему nil... что происходит ?))))

Вообщем присваивает, но при выходе из процедуры AddItem CreatItem становится = ChoiceItem, вообщем я вообще запутался, из за чего это происходит ???

[DiemonStar]

Начнём сначала:

1.

var
ChoiceItem, CreatItem: TList;

если вы используете класс, то все переменные, используемые в процедурах и функциях класса должны быть либо описаны в классе, либо быть локальными для этой процедуры. Иначе при одновременной работе с двумя и более переменными данного класса у вас могут теряться данные.
2. справедливое замечание про TList: во-первых, T указывает, что переменная данного типа - объект, а для указателей (в том числе и на объекты) используются типы начинающиеся на P. Понятно, что это не обязательное требование, но читабельность кода заметно повышается.
3. Нужно быть редким извращенцем, чтобы работать со всем массивом из переменной элемента этого массива. Вы сами себе добавляете головной боли. Сделайте проще - запись или мини-объект для отдельного элемента:

  PElem = ^TElem;
  TElem = class
     Value : Integer;
     Prev : PElem;
     Next : PElem;
  end;{class}

после чего можно создавать класс списка типа:

  TMyList = class
     Head : PElem; {голова списка}
     Last : PElem; {конец списка}
     Count : Integer;
  {ну и так дальше}

Здесь же можете хранить и активный элемент списка.

[KooKish]

Уважаемый, побоюсь спросить) В данном случае Указатели создаются New(Last), так ? Просто при таком создании выдает ошибку