Forum: Win32/Win64 API (native code)
Delphi
by Mavarik,
18. Jul 2012
hmm..
Das würde ein komplett neues Konzept bedeutet...
Kann ich davon ausgehen, dass hintereinander liegende wieder frei gegebene Segmente wieder zu einem großen block zusammen gefasst werden?
Mavarik
Forum: Win32/Win64 API (native code)
Delphi
by Mavarik,
16. Jul 2012
Nein eigentlich nicht... Trotzdem Danke für Dein langes Posting um mich zu belehren...
Eine Antwort auf meine Frage wäre mir lieber gewesen...
Vielleicht ist die hier etwas unter gegangen:
Wie kann ich den Restspeicher für ein dynamisches Array ermitteln? Hier wäre es wichtig auch noch einen "restspeicher" für das laufende Programm frei zu halten!
Mavarik
Forum: Win32/Win64 API (native code)
Delphi
by Mavarik,
12. Jul 2012
finally
for i := 0 to 100 do // 100 Du hast nur bis 20 definiert!
VirtualFree(F, 0, MEM_RELEASE);
end;
Ausgabe:
Gesamt ********* Size ******** Virtual 1.996.284 / 2.097.024 Load 39% Physical 4.194.304 / 4.194.304 Pagefile 4.194.304 / 4.194.304
Forum: Win32/Win64 API (native code)
Delphi
by Mavarik,
12. Jul 2012
hmm Leider auch nicht...
procedure TForm49.Button2Click(Sender: TObject);
Var
M : TMemoryStatus;
i,i2 : Integer;
begin
i2 := 1024*1024*256;
for i:=0 to 100 do
begin
Forum: Win32/Win64 API (native code)
Delphi
by Mavarik,
12. Jul 2012
OK, Aber wie bekommen ich den Restspeicher in meinem 32 Bit Adressraum raus?
Mavarik
Forum: Win32/Win64 API (native code)
Delphi
by Mavarik,
12. Jul 2012
Hallo Zusammen...
Simples Programm:
Var
f : array of TByteDynArray;
procedure TForm49.Button2Click(Sender: TObject);
Var
M : TMemoryStatus;