paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 00:09:17 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/projectresources.pas
View File

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

2
ide/sysvaruseroverridedlg.pas
View File

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