paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 08:59:37 +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

2
lcl/textstrings.pas
View File

@ -688,11 +688,13 @@ 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
s: String; s: String;