Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
24. Sep 2007
Hallo Ruben, das mit dem VarClear war ein guter Tipp. Ich bedanke mich dafür.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
23. Sep 2007
While Enum.Next(1, WMIObject, W) = S_OK do Begin
PropEnum := ISWbemPropertySet((IUnknown(WMIObject) as ISWbemObject).Properties_)._NewEnum as IEnumVariant;
Prop := 0;
If Instance > 0 Then SetLength(_WMIResults.Instance.PropValue, Length(_WMIResults.PropName));
While PropEnum.Next(1, WMIObject, W) = S_OK do Begin
WMIProp :=...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
22. Sep 2007
Ich habe mir das ganze gerade mal angeschaut. Nicht nur der erste SetLength - Befehl schnappt bei mir mehr Speicher weg (ca. 8KB bis 20 KB), sondern auch die beiden while-Schleifen.
Nur warum das ganze so ist, verstehe ich auch nicht.