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

gtk2: fix similar memory leak with memo

Browse Source 
git-svn-id: trunk@15645 -
This commit is contained in:
paul 2008-07-02 07:01:37 +00:00
parent 05de12747e
commit 02f171c994
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk2/gtk2memostrings.inc
View File

@ -63,14 +63,17 @@ end;
function TGtk2MemoStrings.GetTextStr: string;
var
StartIter,
EndIter: TGtkTextIter;
StartIter, EndIter: TGtkTextIter;
AText: PgChar;
begin
Result := '';
gtk_text_buffer_get_start_iter(FGtkBuf, @StartIter);
gtk_text_buffer_get_end_iter(FGtkBuf, @EndIter);
Result := PChar(gtk_text_iter_get_text(@StartIter, @EndIter));
AText := gtk_text_iter_get_text(@StartIter, @EndIter);
Result := StrPas(AText);
if AText <> nil then
g_free(AText);
end;
function TGtk2MemoStrings.GetCount: integer;
@ -98,7 +101,8 @@ begin
else
AText := nil;
Result := StrPas(AText);
g_free(AText);
if AText <> nil then
g_free(AText);
end;
constructor TGtk2MemoStrings.Create(TextView: PGtkTextView;