Delphi двунаправленный список

[Blacksoul]

[nn03]

Я что-то не понял, что Вы хотите?

[Blacksoul]

Я что-то не понял, что Вы хотите?

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

[f1redark]

TIgrok :-D

[flopix]

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

Что в вашем понимании двунаправленный список?

[Blacksoul]

Что в вашем понимании двунаправленный список?

Каждый элемент списка имеет ссылку на предыдущий и следующие элементы списков.

[Hett]

А в чем вопрос? Или это задание и каждый должен зайти и сделать?

[Blacksoul]

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

Unit1

unit Unit1;

interface

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

type
TForm1 = class(TForm)
btn1: TButton;
lbl1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MyIgrok : TIgrok;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
MyIgrok:=nil;
MyIgrok:= TIgrok.Create;
MyIgrok := TIgrok.Create ('fio',1);
MyIgrok.Show;

end;

end.

Unit2

unit Unit2;

interface

type
TIgrok = class
private

fio : string;
num : integer;
public
constructor Create; overload;
constructor Create (afio : string;anum:Integer ); overload;
function GetFIO : string;
function GetNum : integer;
procedure SetFIO (afio : string);
procedure SetNum (anum : integer);
procedure Show;
end;



implementation

uses Unit1;

constructor TIgrok.Create;
begin


end;

constructor TIgrok.Create (afiotring;anum : integer);
begin
num := anum;
fio := afio;
end;

function TIgrok.GetNum: integer;
begin
result := num;
end;

function TIgrok.GetFIO : string;
begin
result := fio;
end;



procedure TIgrok.Show;
begin
{Form1.Canvas.TextOut(50,50,num);}
Form1.lbl1.Caption:= 'num';
end;

procedure TIgrok.SetFIO(afio: string);
begin

end;

procedure TIgrok.SetNum(anum: integer);
begin

end;


end.

Unit3

unit Unit3;

interface

uses Unit2;

type
ListItem = class
private
ItemInf : string;
Next : ListItem;
Igrok : TIgrok;
public
constructor Create (aInf : string; aNext : ListItem; aIgrok : TIgrok );
function GetNext : ListItem;
function GetIgrok : TIgrok;
function GetInf : string;
procedure SetNext (aNext : ListItem);
procedure SetIgrok (aIgrok : TIgrok);
procedure SetInf (aInf : string);
end;

implementation


{ ListItem }

constructor ListItem.Create(aInf: string; aNext: ListItem; aIgrok: TIgrok);
begin

end;

function ListItem.GetIgrok: TIgrok;
begin

end;

function ListItem.GetInf: string;
begin

end;

function ListItem.GetNext: ListItem;
begin

end;

procedure ListItem.SetIgrok(aIgrok: TIgrok);
begin

end;

procedure ListItem.SetInf(aInf: string);
begin

end;

procedure ListItem.SetNext(aNext: ListItem);
begin

end;

end.

Unit4

unit Unit4;

interface
uses Unit2,Unit3;

type
CircleListContainer = class
private
ContInf : string;
First : ListItem;
public
constructor Create (ainf : string);
function GetFirst : ListItem;
procedure Add (ainf : string; aIgrok: TIgrok);
function Delete (ainf : string) : boolean;
{ function Search (aRad : integer) : ListItem;}
{procedure ShowAll;}
procedure MoveAll (dx, dy : integer);
end;

implementation

uses Unit1;

{ CircleListContainer }

constructor CircleListContainer.Create(ainf: string);
begin
First := nil; ContInf := ainf;
end;

procedure CircleListContainer.Add(ainf: string; aIgrok: TIgrok);
begin
First := ListItem.Create (ainf, First, aIgrok);
end;



function CircleListContainer.Delete(ainf: string): boolean;
begin

end;

function CircleListContainer.GetFirst: ListItem;
begin

end;

procedure CircleListContainer.MoveAll(dx, dy: integer);
begin

end;

{function CircleListContainer.Search(aRad: integer): ListItem;
var
Temp : ListItem;
begin
result := nil;
Temp := First;
while (Temp <> nil) do
if (Temp.GetIgrok.GetIgrok = aRad) then
begin
result := Temp;
break;
end
else Temp := Temp.GetNext
end; }

{procedure CircleListContainer.ShowAll;
var
Temp : ListItem;
begin
Temp := First;
while (Temp <> nil) do
begin
Temp.GetCirc.Show;
Temp := Temp.GetNext;
end;
end;}

end.

[flopix]

PHP код:

<?php 

procedure TIgrok.Show;

begin

{Form1.Canvas.TextOut(50,50,num);}

Form1.lbl1.Caption:= 'num';

end; 

[Blacksoul]

PHP код:

<?php 

procedure TIgrok.Show;

begin

{Form1.Canvas.TextOut(50,50,num);}

Form1.lbl1.Caption:= 'num';

end;