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

98. else

99. Form1.RgrInet.ItemIndex:=0;

100. Form1.EMonitor.Text:=Comp.Monitor;

101. end;

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

103. Procedure ShowCompInGrid(Comp:TComp;Sgr:TStringGrid;Row:integer);

104. begin

105. Sgr.Cells[0,Row]:=IntToStr(Row);

106. Sgr.Cells[1,Row]:=Comp.Name;

107. Sgr.Cells[2,Row]:=FloatToStr(Comp.HDD);

108. Sgr.Cells[3,Row]:=IntToStr(Comp.RAM);

109. Sgr.Cells[4,Row]:=Comp.Monitor;

110. if Comp.Inet then

111. Sgr.Cells[5,Row]:='есть'

112. else

113. Sgr.Cells[5,Row]:='нет';

114. end;

115. // вывод содержимого массива FComp в таблицу

116. Procedure ShowAComp(AComp:ATComp;Sgr:TStringGrid);

117. var i,ln:integer;

118. begin

119. ln:=Length(AComp);

120. if ln = 0 then

121. Sgr.RowCount:=2

122. else

123. Sgr.RowCount:=ln+1;

124. SGr.FixedRows:=1;

125. for i:=0 to LN-1 do

126. ShowCompInGrid(AComp[i],Sgr,i+1);