Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

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:

 

unitUnit1;

 

pPersonType = ^PersonType;

 

PersonType = record

sName: string[40];

Salary: double;

pNext: pPersonType;

end;

 

 


MyList1Class = Class(TObject)

pHead, pTail: pPersonType;

 

constructorCreate;

destructorDestroy;

 

functionAloneItem(sName: string; Salary: double;

varpNew: pPersonType): boolean;

 

procedureAppendItem(sName: string; Salary: double);

 

procedureAppendFromFile(sFileName: string);

 

procedureShowList;

end;

 

 

constructorMyList1Class.Create;

pHead := Nil;

pTail := Nil;

end;

 

destructorMyList1Class.Destroy;

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

end;

 


functionMyList1Class.AloneItem(sName: string; Salary: double;

varpNew: pPersonType): boolean;

New(pNew);

ifpNew = Nil thenHalt; // Нет места в памяти – прекращаем работу.

 

pNew^.sName := sName;

pNew^.Salary := Salary;

pNew^.pNext := Nil;

 

ifpHead = Nil then

pHead := pNew; pTail := pNew;

AloneItem := True;

AloneItem := False;

end;


procedureMyList1Class.AppendItem(sName: string; Salary: double);

pNew: pPersonType;

pTail^.pNext := pNew;

pTail := pNew;

end;

end;

 


procedureMyList1Class.AppendFromFile(sFileName: string);

F: Text;

sName: string[40];

Salary: double;

 

Assign(F, sFileName);

 

{$I-}

Reset(F);

{$I+}

 

ifIOResult <> 0 then

WriteLN('File ', sFileName, ' notfound');

Halt;

end;

 

Readln(F, sName);

Readln(F, Salary);

 



AppendItem(sName, Salary);

end;

end;

 


procedureMyList1Class.ShowList;

varpCurr: pPersonType;

pCurr := pHead;

 

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

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

 

whilepCurr <> Nil do

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

pCurr := pCurr^.pNext;

end;

end;

 

end.


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

 

unitUnit2;

 

 

usesUnit1;

 

 

MyList2Class = Class(MyList1Class)

procedurePrependItem(sName: string; Salary: double);

procedurePrependFromFile(sFileName: string);

end;

 

 


 

procedureMyList2Class.PrependItem(sName: string; Salary: double);

pNew: pPersonType;

pNew^.pNext := pHead;

pHead := pNew;

end;

end;

 


procedureMyList2Class.PrependFromFile(sFileName: string);

F: Text;

sName: string[40];

Salary: double;

 

Assign(F, sFileName);

 

{$I-}

Reset(F);

{$I+}

ifIOResult <> 0 then

WriteLN('File ', sFileName, ' notfound');

Halt;

end;

 

<== предыдущая лекция | следующая лекция ==>
Использующий ООП | Аппаратура

Дата добавления: 2014-01-04; Просмотров: 148; Нарушение авторских прав?


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



ПОИСК ПО САЙТУ:


Рекомендуемые страницы:

Читайте также:
studopedia.su - Студопедия (2013 - 2020) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление
Генерация страницы за: 0.008 сек.