6 (1585)

126 Aplikacje w Delphi. Przykłady

Cel 1s[0.0]:='Lp.’:

Cells[1.0]:='Danel';

Cel 1s[2.0]: = ’Dane2’:

Cells[3.0]:='Dane3'; for i:= 1 to RowCount - 1 do begin

Cells[0.i]:=Inttostr(i):

Cells[l,i]:=Inttostr(i*i+2):

Cells[2,i]:=Inttostr(2*i):

Celis[3,i]:=Inttostr(1+Random(40)); end:

end:

end;

W procedurze obsługi zdarzenia OnChange, występującego po zmianie aktywnej zakładki, wpisz instrukcje rysujące wykres na podstawie danych z tabeli.

//rysowanie wykresu

procedurę TForml.PageControllChangetSender: TObject);

var i:integer;

begin

if PageControll.ActivePage=Tabsheet2 then begin

Seriesl.Title:='Danel';

Series2.Title:='Dane2';

Series3.Title:='Dane3':

//rysuj wykres

for i:=0 to Chartl.SeriesCount-1 do Chartl.Series[i].Clear;

with Stringgridl do

for i:=1 to RowCount - 1 do

if (Cells[l.i]o")AND (Cells[2.i]o")AND(Cells[3.i]o") then begin

Seriesl.AddtStrtoInt(Cel 1s[l.i]).Cel 1s[0.i]):

Seri es2.Add(Strtolnt(Cel 1s[2.i]).Cel 1s[0,i]): Series3.Add(StrtoInt(Cells[3.i]).Cells[0.i]); end: end; end: