Hi,
I have a classes:
- TWaggonDispatch
- TWaggonInfo
- TCountry
- TFirm
- TStation
- TGood
TWaggonDispatch = class(TtiObject)
private
...
FWaggonInfo: TWaggonInfo;
function GetWaggonInfo: TWaggonInfo;
procedure SetWaggonInfo(Value: TWaggonInfo);
published
...
property WaggonInfo: TWaggonInfo read GetWaggonInfo write SetWaggonInfo;
end;
TWaggonInfo = class(TtiObject)
private
FCountry: TCountry;
FFirmOwner: TFirm;
FFirmSend: TFirm;
FGood: TGood;
FGoodRec: TGood;
FStationReceive: TStation;
FStationReceiveRec: TStation;
FStationSend: TStation;
FStationSendRec: TStation;
...
published
...
property Country: TCountry read GetCountry write SetCountry;
property FirmOwner: TFirm read GetFirmOwner write SetFirmOwner;
property FirmSend: TFirm read GetFirmSend write SetFirmSend;
property Good: TGood read GetGood write SetGood;
property GoodRec: TGood read GetGoodRec write SetGoodRec;
property StationReceive: TStation read GetStationReceive
write SetStationReceive;
property StationReceiveRec: TStation read GetStationReceiveRec
write SetStationReceiveRec;
property StationSend: TStation read GetStationSend write SetStationSend;
property StationSendRec: TStation read GetStationSendRec
write SetStationSendRec;
end;
All objects reads when reads TWaggonDispatch. I use hardcore visitors and it
all in one group. When I try to work with more then 100 rows of
TwaggonDispatch it is wery slow, becouse it is many times to creates Query.
Can you give me an advice, how to increace speed on retreive data.
--
Regards, Kirill Ponomarev.
------------------------------------------------------------------------------
This SF.net email is sponsored by Sprint
What will you do first with EVO, the first 4G phone?
Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
_______________________________________________
tiOPF-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tiopf-talk
