Gdzie można znalezć opis tego komponentu. Nie bardzo wiem jak z niego korzystać.
--Pamiętaj - nie siedz za dużo przed komputerem.
- Rejestracja:ponad 21 lat
- Ostatnio:około 6 lat
- Postów:65
0
Tu masz kawałek mojego kodu :
dbf1.First;
while not dbf1.Eof do
begin
if dbf1.Fields.Fields[dbf1.FieldDefs.IndexOf('OPL_ZWROT')].Value<>'0' then
x:=x+1;
y:=(x/z)*100;
dbf1.Next;
end;
dbf1.PhysicalRecNo:=0;
ds2.Enabled:=true;
ds2.AutoEdit:=true;
dbf2.Append;
dbf2.ReadOnly:=false;
dbf2.Active:=true;
pd.Min:=0;
pd.Max:=kurierzy.Count-1;
pd.Position:=i;
dbf2.FieldByName('Kurier').AsString:=kurierzy[i];
dbf2.FieldByName('Nadania(szt)').AsString:=floattostr(z);
dbf2.FieldByName('ROD(szt)').AsString:=floattostr(x);
dbf2.FieldByName('ROD(%)').AsFloat:=roundto(y,-2);
dbf2.Post;
end;
finally;
x:=10;
dbf2.First;
while not dbf2.Eof do
begin
chart4.Series[0].AddXY(x,dbf2.Fields.Fields[1].Value,dbf2.Fields.Fields[0].Value,clTeeColor);
chart4.Series[1].AddXY(x,strtofloat(dbf2.Fields.Fields[2].Value),dbf2.Fields.Fields[0].Value,clTeeColor);
chart4.Series[2].AddXY(x,strtofloat(dbf2.Fields.Fields[3].Value),dbf2.Fields.Fields[0].Value,clTeeColor);
x:=x+10;
dbf2.Next;
end;
dbf2.PhysicalRecNo:=0;
end;
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.