paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 02:19:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TTextStrings: fixed AddStrings checking if copying objects is needed

Browse Source 
git-svn-id: trunk@18770 -
This commit is contained in:
mattias 2009-02-20 10:54:22 +00:00
parent 1f3f833a84
commit 44137fd82d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/textstrings.pas
View File

@ -688,10 +688,12 @@ procedure TTextStrings.AddStrings(TheStrings: TStrings);
if TheStrings is TTextStrings then if TheStrings is TTextStrings then
Result:=TTextStrings(TheStrings).HasObjects Result:=TTextStrings(TheStrings).HasObjects
else else
begin
for i:=0 to TheStrings.Count-1 do for i:=0 to TheStrings.Count-1 do
if TheStrings.Objects[i]<>nil then if TheStrings.Objects[i]<>nil then
exit(true); exit(true);
Result:=false; Result:=false;
end;
end; end;
var var