programovanie v delphi dalibor cicala - 89
Cells[0,i]:=IntToStr(i); { Prvý st pec } End; For i:=1 To 10 Do For j:=1 To 10 Do { Vyplnenie tabu ky } Cells[i,j]:=IntToStr(i*j); End; end;
Ak vám nie je celkom zrejmá práca s po om, vrá te sa k príslušným kapitolám knižky. Všimnite si najmä využitie konštrukcie „cyklus v cykle“, ím je vyp aná tabu ka. Pre programátora je výhodné vedie , s akými znakmi môže pracova . Ur itý font (typ písma) totiž neobsahuje len znaky, ktoré vidíte na klávesnici, ale aj znaky „špeciálne“. K tomu dobre poslúži Mapa znakov z príslušenstva Windows, alebo nasledovná jednoduchá procedúra, ktorú môžete napísa ako reakciu na stla enie tla idla btASCII ...
procedure TfrmMain.tbASCIIClick(Sender: TObject); Var i,j:Integer; begin With grdVypln Do Begin ColCount:=17; RowCount:=17; DefaultColWidth:=18; DefaultRowHeight:=18; ColWidths[0]:=22; Cells[0,0]:='A'; For i:=1 To 16 Do Begin { Hlavi ka } Cells[i,0]:=IntToStr(i); { Prvý riadok } Cells[0,i]:=IntToStr(i); { Prvý st pec } End; For i:=1 To 16 Do For j:=1 To 16 Do { Vyplnenie tabu ky } Cells[i,j]:=Chr(j*16+i-17); End; end;
Niekedy sa vám tiež môže zís vypísa údaj na aktuálnej pozícii. V tomto prípade som využil udalos OnClick, ktorá sa aktivuje vždy ke na tabu ku kliknete myšou, alebo presuniete kurzor šípkami. Výpis robte do pripraveného komponentu Label1.
procedure TfrmMain.grdVyplnClick(Sender: TObject); begin Label1.Caption:=grdVypln.Cells[grdVypln.Col,grdVypln.Row]; end;
No a napokon, po spustení bude aplikácia vyzera nasledovne :
85
