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

Converter: Convert also function SameStr. For some reason SysUtils does not have it.

Browse Source 
git-svn-id: trunk@43789 -
This commit is contained in:
juha 2014-01-25 09:20:18 +00:00
parent f3fb58bd36
commit 8e15025003
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/convertsettings.pas
View File

@ -622,6 +622,8 @@ begin
AddDefaultCategory(Categ);
AddFunc(Categ, 'Ptr','Pointer($1)' ,'','');
AddFunc(Categ, 'RecreateWnd','RecreateWnd(Self)' ,'LCL', 'Controls');
// SysUtils has AnsiSameStr and SameText but no SameStr.
AddFunc(Categ, 'SameStr','(CompareStr($1,$2) = 0)' ,'', 'SysUtils');
end;
end;