While notEOF(F) do. If notAloneItem(sName, Salary, pNew) then

Begin

Begin

Var

Begin

If notAloneItem(sName, Salary, pNew) then

Begin

Var

Implementation

Public

Type

Interface

Begin

Begin

Begin

While notEOF(F) do

Begin

Begin

Var

Begin

If notAloneItem(sName, Salary, pNew) then

Begin

Var

Else

End

Begin

Begin

Begin

Begin

Implementation

Public

Protected

Type

Interface

Begin

Var

Uses

SysUtils,

Unit1 in 'Unit1.pas',

Unit2 in 'Unit2.pas',

Unit3 in 'Unit3.pas';

MyList1: MyList1Class;

MyList2: MyList2Class;

MyList3: MyList3Class;

MyList1:= MyList1Class.Create;

MyList1.AppendFromFile('c: List1.txt');

MyList1.ShowList;

WriteLN;

MyList2:= MyList2Class.Create;

MyList2.PrependFromFile('c: List2.txt');

MyList2.ShowList;

WriteLN;

MyList3:= MyList3Class.Create;

MyList3.InsertFromFile('c: List1.txt');

MyList3.ShowList;

Readln;

end.

Текст файла Unit1.pas:

unit Unit1;

pPersonType = ^PersonType;

PersonType = record

sName: string [40];

Salary: double;

pNext: pPersonType;

end;

MyList1Class = Class(TObject)

pHead, pTail: pPersonType;

constructor Create;

destructor Destroy;

function AloneItem(sName: string; Salary: double;

var pNew: pPersonType): boolean;

procedure AppendItem(sName: string; Salary: double);

procedure AppendFromFile(sFileName: string);

procedure ShowList;

end;

constructor MyList1Class.Create;

pHead:= Nil;

pTail:= Nil;

end;

destructor MyList1Class.Destroy;

// Код будет написан позже!

end;

function MyList1Class.AloneItem(sName: string; Salary: double;

var pNew: pPersonType): boolean;

New(pNew);

if pNew = Nil then Halt; // Нет места в памяти – прекращаем работу.

pNew^.sName:= sName;

pNew^.Salary:= Salary;

pNew^.pNext:= Nil;

if pHead = Nil then

pHead:= pNew; pTail:= pNew;

AloneItem:= True;

AloneItem:= False;

end;

procedure MyList1Class.AppendItem(sName: string; Salary: double);

pNew: pPersonType;

pTail^.pNext:= pNew;

pTail:= pNew;

end;

end;

procedure MyList1Class.AppendFromFile(sFileName: string);

F: Text;

sName: string [40];

Salary: double;

Assign(F, sFileName);

{$I-}

Reset(F);

{$I+}

if IOResult <> 0 then

WriteLN('File ', sFileName, ' not found');

Halt;

end;

Readln(F, sName);

Readln(F, Salary);

AppendItem(sName, Salary);

end;

end;

procedure MyList1Class.ShowList;

var pCurr: pPersonType;

pCurr:= pHead;

Writeln('Name':40, ' ', 'Salary');

Writeln('----':40, ' ', '------');

while pCurr <> Nil do

Writeln(pCurr^.sName:40, ' ', pCurr^.Salary:8:2);

pCurr:= pCurr^.pNext;

end;

end;

end.

Текст файла Unit2.pas:

unit Unit2;

uses Unit1;

MyList2Class = Class(MyList1Class)

procedure PrependItem(sName: string; Salary: double);

procedure PrependFromFile(sFileName: string);

end;

procedure MyList2Class.PrependItem(sName: string; Salary: double);

pNew: pPersonType;

pNew^.pNext:= pHead;

pHead:= pNew;

end;

end;

procedure MyList2Class.PrependFromFile(sFileName: string);

F: Text;

sName: string [40];

Salary: double;

Assign(F, sFileName);

{$I-}

Reset(F);

{$I+}

if IOResult <> 0 then

WriteLN('File ', sFileName, ' not found');

Halt;

end;

Дата добавления: 2014-01-04