Курсовая работа: Разработка программы при помощи языка программирования языка Delphi

68. Comp:TComp;

69. AComp:ATComp;

70. CurK:integer;

71. Fname:string;

72. implementation

73.

74. uses Unit2;

75.

76. {$R *.dfm}

77. // поиск компьютера по имени

78. Function GetComp(name:string;AComp:ATComp;var Comp:TComp):boolean;

79. var i:integer;

80. begin

81. for i:=0 to Length(AComp)-1 do

82. if AComp[i].Name = Name then

83. begin

84. Comp:=AComp[i];

85. GetComp:=true;

86. exit;

87. end;

88. GetComp:=false;

89. end;

90. // вывод информации об одном компьютерера из типизированного файла на экранную форму

91. Procedure ShowComp(Comp:TComp);

92. begin

93. Form1.EName.Text:=Comp.Name;

94. Form1.EHDD.Text:=FloatToStr(Comp.HDD);

95. Form1.ERAM.Text:=IntToStr(Comp.RAM);

96. if Comp.Inet then