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

* Fixed get line, the used message doesn't return a null terminator, to StrPas fails

Browse Source 
git-svn-id: trunk@9237 -
This commit is contained in:
marc 2006-05-03 23:38:10 +00:00
parent f027d14ea5
commit d14455fdbc
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/win32/win32memostrings.inc
View File

@ -68,18 +68,18 @@ end;
function TWin32MemoStrings.Get(Index: Integer): string;
var
textbuf: pchar;
fLength: Integer;
len: Integer;
begin
fLength := GetLineLength(Index);
if fLength = 0 then Result := ''
else begin
textbuf := AllocMem(sizeof(char)*fLength+1);
PWord(textbuf)^ := Word(sizeof(char)*fLength+1);
SendMessage(fHandle, EM_GETLINE, Index, lparam(textbuf));
Result := StrPas(textbuf);
ReAllocMem(textbuf, 0);
end;
len := GetLineLength(Index);
Setlength(Result, len);
if len = 0 then Exit;
// no need for temp buf and moving
// the result is without null terminator.
PWord(@Result[1])^ := len;
len := SendMessage(fHandle, EM_GETLINE, Index, lparam(@Result[1]));
// readjust length in case somethng went wrong
Setlength(Result, len);
end;
constructor TWin32MemoStrings.Create(Handle: HWND; TheOwner: TWinControl);