paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 05:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less hints

Browse Source
This commit is contained in:
mattias 2022-04-14 21:48:17 +02:00
parent 4829be3ad1
commit 49222b1e9d
2 changed files with 2 additions and 2 deletions

2
ide/projectresources.pas
View File

@ -156,7 +156,7 @@ procedure ParseResourceType(Code: TCodeBuffer; NestedComments: boolean;
begin
Inc(ds);
i := IndexChar(ds^, -1, '''');
SetLength(Result, i);
SetLength(Result{%H-}, i);
if i>0 then
Move(ds^, Result[1], i);
end else begin

2
ide/sysvaruseroverridedlg.pas
View File

@ -53,7 +53,7 @@ var
ok: boolean;
Vals: array of string;
begin
SetLength(Vals, 2);
SetLength(Vals{%H-}, 2);
Vals[0]:= AName;
Vals[1]:= AValue;