paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 20:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

wince interface: use SysFreeString to release strings allocated with SysAllocStringLen (issue #8947)

Browse Source 
git-svn-id: trunk@11204 -
This commit is contained in:
vincents 2007-05-25 21:08:29 +00:00
parent b465403293
commit bce8d0a4c6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/wince/wincememostrings.inc
View File

@ -72,7 +72,7 @@ begin
PWord(textbuf)^ := Word(fLength+1); PWord(textbuf)^ := Word(fLength+1);
SendMessage(fHandle, EM_GETLINE, Index, lparam(textbuf)); SendMessage(fHandle, EM_GETLINE, Index, lparam(textbuf));
Result := WideStringToString(WideString(textbuf)); Result := WideStringToString(WideString(textbuf));
FreeMem(textbuf); SysFreeString(textbuf);
end; end;
end; end;