FreeMem D2009 und FastMM

[FredlFesl]

Zitat von EWeiss:

Zitat von himitsu:

Delphi-Quellcode:

function ListGetText(hList: HWND; Item: Integer): WideString;
begin
    if Item > 0 then
       dec(Item);
    SetLength(Result, SendMessage(hList, LB_GETTEXTLEN, Item, 0));
    SendMessage(hList, LB_GETTEXT, Item, LPARAM(Result));
end;

Kein Memory allozieren ?
Und Freigeben?

SetLength allokiert den Speicher. Die Freigabe erfolgt über die Referenzzählung der Strings.