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