pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix Integer/Cardinal instead of PtrInt/PtrUInt (Thanks Juha)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3859 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-01-02 17:48:42 +00:00
parent adcc3c6129
commit 0a71476b03
15 changed files with 82 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/imp_utils.pas
View File

@@ -130,7 +130,7 @@ var
{$ENDIF HAS_FORMAT_SETTINGS}
function TranslateDotToDecimalSeperator(const Value: string) : string;
var
i : PtrInt;
i : Integer;
begin
Result := Value;
for i := 1 to length(Result) do begin
@@ -289,7 +289,7 @@ end;
procedure TPublishedPropertyManager.SetProperties(const APropsStr: string);
var
lst : TStringList;
i : PtrInt;
i : Integer;
begin
If IsStrEmpty(APropsStr) Then
Exit;