|
Äëÿ ââîäà (âûâîäà) ìàññèâà óäîáíî èñïîëüçîâàòü êîìïîíåíò 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;
|
