FreeMem D2009 und FastMM

[himitsu]

Am Einfachsten gleich direkt in den WideString reinschreiben.

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;