Schlüsselwort absolute

[xaromz]

Hallo,

Zitat von Dezipaitor:

Es gibt aber eine Lösung, die das schafft. Leider ist sie etwas gefährlich.

Delphi-Quellcode:

class function GetAccessNames(out iCount : Cardinal): PSI_ACCESS;
type tASI = array of SI_ACCESS;
var 
    siArr : tASI; 
    i : Cardinal;
begin
  iCount := 32;
  GetMem(result, Sizeof(si) * iCount);
  {hier noch kein Zugriff auf siArr !!!!!!!}
 
  siArr := tASI(result);
  {result = siArr}
  for i := 0 to iCount -1 do
  begin
    //Zugriff : siArr[i]
  end;
end;

das ist eine ganz normale Lösung, die wunderbar funktioniert. Gefährlich ist die nicht, der Aufrufer darf nur nicht vergessen, den Speicher wieder freizugeben. Deshalb sollte für einen solchen Zweck eine Prozedur genommen werden, der man den Speicherbereich übergibt; dann muss der Aufrufer sowohl den Speicher anfordern als auch wieder freigeben. Deine erste Variante hingegen ist sehr gefährlich, da sie einen Pointer auf eine lokale Variable zurückgibt, der nach dem Aufruf nicht mehr gültig ist.

Gruß
xaromz