11. (GlobalMemoryStatus, MemAvail). |
|
|
megabax
|
03.12.2009 . |
New Page 1
(GlobalMemoryStatus,
MemAvail).
.
(
) :
TPASSPriceSource.
( TListBox
lbMemory) :
procedure TfrmMomentum.itLoadClick(Sender:
TObject);
var lpBuffer: TMemoryStatus; i:integer;
begin
GlobalMemoryStatus(lpBuffer);
lbMemory.Items.Add(FloatToStr(lpBuffer.dwAvailPhys)+'
--- '+
FloatToStr(lpBuffer.dwAvailVirtual));
if
odOpenDialog.Execute then
begin
for
i:=1 to 100 do
begin
if FPriceSource<>nil then FreeAndNil(FPriceSource);
FPriceSource:=TPASSPriceSource.Create(odOpenDialog.FileName,false);
FPriceSource.LoadDataFromTextFile(odOpenDialog.FileName);
end;
end;
lbMemory.Items.Add(FloatToStr(lpBuffer.dwAvailPhys)+'
--- '+
FloatToStr(lpBuffer.dwAvailVirtual))
end; |
:

,
. , .
.
FPriceSource.LoadDataFromTextFile(odOpenDialog.FileName);
100000.
:

TPASSMomentum:
procedure
TfrmMomentum.btnTestClick(Sender: TObject);
var lpBuffer: TMemoryStatus; i:integer;
begin
GlobalMemoryStatus(lpBuffer);
lbMemory.Items.Add(FloatToStr(lpBuffer.dwAvailPhys)+'
--- '+
FloatToStr(lpBuffer.dwAvailVirtual));
for i:=1 to 100000 do
begin
if FIndicator<>nil
then FreeAndNil(FIndicator);
FIndicator:=TPASSMomentum.Create(3,'Close');
end;
lbMemory.Items.Add(FloatToStr(lpBuffer.dwAvailPhys)+'
--- '+
FloatToStr(lpBuffer.dwAvailVirtual))
end; |
:

, .
TPASSStatAnalizMomentum:
procedure TfrmMomentum.btnTestClick(Sender:
TObject);
var lpBuffer: TMemoryStatus; i:integer; SA:TPASSStatAnalizMomentum;
begin
GlobalMemoryStatus(lpBuffer);
lbMemory.Items.Add(FloatToStr(lpBuffer.dwAvailPhys)+' --- '+
FloatToStr(lpBuffer.dwAvailVirtual));
for i:=1 to 100000 do
begin
SA:=TPASSStatAnalizMomentum.Create(nil,10, nil);
SA.Free;
end;
lbMemory.Items.Add(FloatToStr(lpBuffer.dwAvailPhys)+' --- '+
FloatToStr(lpBuffer.dwAvailVirtual))
end; |
:

,
TPASSStatStoreDataList , ,
, ,
.
|
( 04.07.2013 . )
|