Hallo Leute,
hat von euch schonmal jemand mit AQTime und dem Allocation Profiler gearbeitet?
Ich habe gerade mal ein kleines Testprogramm geschrieben nur um ein paar Sachen zu analysieren. Bitte nicht über den Sinn und Verstand des Quelltextes äußern, dies ist hier nicht das Thema...
Wenn ich die Anwendung mit AQTime starte und ein wenig laufen lasse (Timer Interval auf 500ms gesetzt), kann man in AQTime sagen, "GetResults Now" und man bekommt eine Auflistung über den aktuellen Speicherverbrauch.
In den Screenshots ist zu sehen, dass ich kurz nach dem Start "GetResults Now" gesagt habe (AQTime1.png) und dann nach längeren laufen lassen nochmal die Results sehen wollte (AQTime2.png).
Meine Frage ist jetzt, unter der Spalte "Size" steht immer der gleiche Wert (28 und 16). Die Adresse ändert sich aber immer und hinter dem ObjectName die Zahl wird auch größer umso länger die Anwendung läuft.
Bedeutet das jetzt, dass der Speicher durch diese zyklischen Typkonvertierungen ansteigt oder kann mir einer die Zahl nach dem ObjectName (Beispiel:
vcl native memory.14752) erklären?
Ich hoffe ihr könnt mir hier bisschen helfen.
Danke schonmal und viele Grüße
AJ
Delphi-Quellcode:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm2 =
class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
tmpStr1 :
String[10];
tmpStr2 : AnsiString;
public
{ Public-Deklarationen }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
function GetMeStr3(aStr : AnsiString) : AnsiString;
begin
Result := '
789';
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
tmpStr1 := '
123';
tmpStr2 := '
456';
Button1.Hint := tmpStr1 + tmpStr2;
Button1.Hint := Button1.Hint + GetMeStr3('
789');
Button1.Hint := Copy(Button1.Hint, 1, Length(Button1.Hint) -2);
end;
end.
PS: Die Meldung Implizierte String-Umwandlung von 'AnsiString' zu 'String' hatte ich in den Optionen abgeschalten, ich weiß das diese zwei mal auftaucht
Ups... Jetzt mit Screenshot
