paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Remove twice quoting of worksheet names containing forbidden characters. https://forum.lazarus.freepascal.org/index.php/topic,67918.msg523859

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9394 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-07-17 15:57:54 +00:00
parent d36dbd8f13
commit 0374c7314f
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/source/common/fpsutils.pas
View File

@ -1316,9 +1316,6 @@ begin
if (ASheet1 = '') and (ASheet2 = '') then
exit;
if SheetNameNeedsQuotes(ASheet1) then ASheet1 := QuotedStr(ASheet1);
if SheetNameNeedsQuotes(ASheet2) then ASheet2 := QuotedStr(ASheet2);
if ASheet2 = '' then
Result := Format('%s!%s', [ASheet1, Result])
else if Compact and (ASheet1 = ASheet2) then