Çàî÷íîå äèñòàíöèîííîå îáðàçîâàíèå ñ ïîëó÷åíèåì ãîñóäàðñòâåííîãî äèïëîìà ÷åðåç Internet










Ïîëó÷èòü èíôîðìàöèþ î ïîñòóïëåíèè
 
Ãëàâíàÿ Íîâîñòè Êàðòà ñàéòà Ôîòîàëüáîì Ãîñòåâàÿ êíèãà Êîíòàêòû

 

Êîìïîíåíò StringGrid

Äëÿ ââîäà (âûâîäà) ìàññèâà óäîáíî èñïîëüçîâàòü êîìïîíåíò StringGrid. Çíà÷îê êîìïîíåíòà StringGrid íàõîäèòñÿ íà âêëàäêå Additional.

Êîìïîíåíò StringGrid ïðåäñòàâëÿåò ñîáîé òàáëèöó, ÿ÷åéêè êîòîðîé ñîäåðæàò ñòðîêè ñèìâîëîâ.
 
 òàáëèöå ïåðå÷èñëåíû íåêîòîðûå ñâîéñòâà êîìïîíåíòà StringGrid.

Ñâîéñòâî

Îïðåäåëÿåò

Name

Èìÿ êîìïîíåíòà. Èñïîëüçóåòñÿ â ïðîãðàììå äëÿ äîñòóïà ê ñâîéñòâàì êîìïîíåíòà

ColCount

Êîëè÷åñòâî êîëîíîê òàáëèöû

RowCount

Êîëè÷åñòâî ñòðîê òàáëèöû

Cells

Ñîîòâåòñòâóþùèé òàáëèöå äâóìåðíûé ìàññèâ. ß÷åéêà òàáëèöû, íàõîäÿùàÿñÿ íà ïåðåñå÷åíèè ñòîëáöà íîìåð Col è ñòðîêè íîìåð Row îïðåäåëÿåòñÿ ýëåìåíòîì Cells[Col, Row]

FixedCols

Êîëè÷åñòâî çàôèêñèðîâàííûõ ñëåâà êîëîíîê òàáëèöû. Çàôèêñèðîâàííûå êîëîíêè âûäåëÿþòñÿ öâåòîì è ïðè ãîðèçîíòàëüíîé ïðîêðóòêå òàáëèöû îñòàþòñÿ íà ìåñòå

FixedRows

Êîëè÷åñòâî çàôèêñèðîâàííûõ ñâåðõó ñòðîê òàáëèöû. Çàôèêñèðîâàííûå ñòðîêè âûäåëÿþòñÿ öâåòîì è ïðè âåðòèêàëüíîé ïðîêðóòêå òàáëèöû îñòàþòñÿ íà ìåñòå

Options.goEditing

Ïðèçíàê äîïóñòèìîñòè ðåäàêòèðîâàíèÿ ñîäåðæèìîãî ÿ÷ååê òàáëèöû. True – ðåäàêòèðîâàíèå ðàçðåøåíî, False – çàïðåùåíî

Options.goTab

Ðàçðåøàåò (True) èëè çàïðåùàåò (False) èñïîëüçîâàíèå êëàâèøè Òàb äëÿ ïåðåìåùåíèÿ êóðñîðà â ñëåäóþùóþ ÿ÷åéêó òàáëèöû

Options.goAlways-ShowEditor

Ïðèçíàê íàõîæäåíèÿ êîìïîíåíòà â ðåæèìå ðåäàêòèðîâàíèÿ. Åñëè çíà÷åíèå ñâîéñòâà False, òî äëÿ òîãî, ÷òîáû â ÿ÷åéêå ïîÿâèëñÿ êóðñîð, íàäî íà÷àòü íàáèðàòü òåêñò, íàæàòü êëàâèøó F2 èëè ñäåëàòü ùåë÷îê ìûøüþ

DefaultColWidth

Øèðèíó êîëîíîê òàáëèöû

DefaultRowHeight

Âûñîòó ñòðîê òàáëèöû

GridLineWi-dth

Øèðèíó ëèíèé, îãðàíè÷èâàþùèõ ÿ÷åéêè òàáëèöû

Left

Ðàññòîÿíèå îò ëåâîé ãðàíèöû ïîëÿ òàáëèöû äî ëåâîé ãðàíèöû ôîðìû

Top

Ðàññòîÿíèå îò âåðõíåé ãðàíèöû ïîëÿ òàáëèöû äî âåðõíåé ãðàíèöû ôîðìû

Height

Âûñîòó ïîëÿ òàáëèöû

Width

Øèðèíó ïîëÿ òàáëèöû

Font

Øðèôò, èñïîëüçóåìûé äëÿ îòîáðàæåíèÿ ñîäåðæèìîãî ÿ÷ååê òàáëèöû

ParentFont

Ïðèçíàê íàñëåäîâàíèÿ õàðàêòåðèñòèê øðèôòà ôîðìû

 
Ïðèìåð:
procedure TForml.ButtonlClick(Sender: TObject);
var
a : array[1..5] of integer;
summ: integer;
sr: real;
i: integer;
begin
for i:= 1 to 5 do
if Length(StringGridl.Cells[i-1, 0]) <>0
then
a[i] := StrToInt(StringGridl.Cells[i-1,0])
else
a[i] := 0;
summ := 0;
for i :=1 to 5 do
summ := summ + a[i]; sr := summ / 5;
Label2.Caption :='Ñóììà ýëåìåíòîâ: ' + IntToStr(summ)+ #13+ 'Ñðåäíåå àðèôìåòè÷åñêîå: ' + FloatToStr(sr);
end;


 
     
   
 


Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êðóãëîì ñòîëå!
ïîäðîáíåå   >>>
 

Èíñòèòóò Ìåíåäæìåíòà, Ýêîíîìèêè è Èííîâàöèé íà÷èíàåò íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Óâàæåìûå ñòóäåíòû ÀÍÎ ÂÏÎ ÈÌÝèÈ!
ïîäðîáíåå   >>>
 

Íà÷èíàåòñÿ íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êîíôåðåíöèÿõ!
ïîäðîáíåå   >>>
 


âñå íîâîñòè...

 


Ðàññûëêè Subscribe.Ru
Ñîâðåìåííîå îáðàçîâàíèå
Ïîäïèñàòüñÿ ïèñüìîì