Et lille spørgsmål

Hukommelse allokeret med GetMem skal frigives med FreeMem, der er ingen undtagelse - heller ikke at den Dom er en lokal variabel :-)

f.eks:

  TmpLength := Length(Domain)*SizeOf(WideChar)+1;
  GetMem(Dom, TmpLength);
  try
    StringToWideChar(Domain, Dom, TmpLength);
  finally
    FreeMem(Dom);
  end;

I dette eks. skal jeg så også frigive den hukommelse der må være allokeret af API-kaldet?(NetUserGerInfo)

procedure blabla;
var
  ErrorC : LongWord;
  Srv : PWideChar;
  TmpLength : LongInt;
  Server : string;
  Buf : PUSER_INFO_2;
begin
  Server := 'AZKS_PDC01';

  TmpLength := Length(Server)*SizeOf(WideChar)+1;
  GetMem(Srv, TmpLength);
  try
    StringToWideChar(Server, Srv, TmpLength);
    ErrorC := NetUserGetInfo(Srv,'brugernavn',2, @buf);
    if ErrorC <> 0 then memo1.lines.add('Error '+inttostr(ErrorC))
    else memo1.lines.Add(Buf.usri2_full_name);
  finally
    Freemem(dom)
  end;
end;

Som grundregel skal du selv frigive den hukommelse du selv har allokeret.

Dvs. har du et kald til GetMem skal du frigive med et kald til FreeMem.

Et andet eksempel kunne være brug af
new(etellerandet)

der skal frigives af det modsvarende
dispose(etellerandet)