临时写的代码，没有经过严格测试。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2;
{$R *.dfm}
var
l : TMyList;
procedure output;
var
i : integer;
begin
form1.Memo1.Clear;
for i := 1 to l.Length do
begin
form1.Memo1.Lines.Add(l.Items(i))
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
l := TMyList.Create;
output
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
l.Free;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i : integer;
begin
for i := 1 to 10 do
l.Append(IntToStr(i));
output
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if l.IndexOf('5') > 0 then ShowMessage('Found');
output
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
l.Modify(l.IndexOf('10'), 'hello');
if l.IndexOf('hello') > 0 then ShowMessage('OK');
output
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
l.Insert(3, 'world');
if l.IndexOf('world')>0 then ShowMessage('OK');
output
end;
end.
unit Unit2;
interface
type
TData = string;
PDataList = ^TDataList;
TDataList = record
data : TData;
next : PDataList
end;
TMyList = class(TObject)
private
FCount : Integer;
FHead : PDataList;
public
constructor Create;
destructor Destroy
override;
procedure Clear;
function First: PDataList;
function Last: PDataList;
function Append(Item: TData): Integer;
procedure Delete(Index: Integer);
procedure Insert(Index: Integer
Item: TData);
procedure Modify(index: Integer
Item: TData);
function Items(Index: Integer) : TData;
function IndexOf(Item: TData): Integer;
function Length : Integer;
end;
implementation
constructor TMyList.Create;
begin
new(FHead);
FHead^.next := nil;
FCount := 0;
end;
destructor TMyList.Destroy;
begin
Clear;
Dispose(FHead);
end;
procedure TMyList.Clear;
var
p : PDataList;
begin
FCount := 0;
p := FHead^.next;
while p <> nil do
begin
FHead^.next := p^.next;
Dispose(p);
p := FHead^.next;
end;
end;
function TMyList.First: PDataList;
begin
result := FHead^.next;
end;
function TMyList.Last: PDataList;
begin
result := FHead^.next;
if result <> nil then
begin
while result^.next <> nil do
begin
result := result^.next;
end;
end;
end;
function TMyList.Append(Item: TData): Integer;
var
p : PDataList;
begin
result := 0;
new(p);
try
p.data := Item;
p.next := nil;
if FCount = 0 then
begin
FHead^.next := p;
end
else
begin
Last^.next := p;
end;
Inc(FCount);
result := FCount;
except
end;
end;
procedure TMyList.Delete(Index: Integer);
var
p,q : PDataList;
i : Integer;
begin
if (FCount > 0) and (Index > 0) and (Index <= FCount) then
begin
p := First;
for i := 1 to Index-2 do
begin
p := p^.next;
end;
q := p^.next;
if Index = FCount then
begin
p^.next := nil;
end
else
begin
p^.next := q^.next;
end;
Dispose(q);
Dec(FCount);
end;
end;
procedure TMyList.Insert(Index: Integer
Item: TData);
var
p,q : PDataList;
i : Integer;
begin
if (Index > 0) and (index <= FCount+1) then
begin
new(q);
q^.data := Item;
q^.next := nil;
if (FCount = 0) and (Index = 1) then
begin
FHead.next := q;
end
else if FCount+1 = Index then
begin
Last^.next := q;
end
else
begin
p := First;
for i := 1 to Index-1 do
begin
p := p^.next;
end;
q^.next := p^.next;
p^.next := q;
end;
Inc(FCount);
end;
end;
procedure TMyList.Modify(index: Integer
Item: TData);
begin
if (Index > 0) and (Index <= FCount) then
begin
Delete(Index);
Insert(Index, Item);
end;
end;
function TMyList.Items(index: Integer): TData;
var
i : Integer;
p : PDataList;
begin
if(index > 0) and (index <= FCount) then
begin
p := First;
for i := 1 to index-1 do
p := p^.next;
result := p^.data;
end;
end;
function TMyList.IndexOf(Item: TData): Integer;
var
p : PDataList;
bFound : Boolean;
begin
result := 0;
p := First;
bFound := False;
while (p <> nil) and (not bFound) do
begin
if p^.data = Item then bFound := true;
Inc(result);
p := p^.next;
end;
if not bFound then result := 0;
end;
function TMyList.Length : Integer;
begin
result := FCount;
end;
end.
Type
:boolean;