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

biffexplorer: Minor refinement

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4521 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-02-21 19:50:29 +00:00
parent 25e1068684
commit c912707ac3
2 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/biffexplorer/beabout.pas
View File

@@ -83,7 +83,7 @@ begin
AddListItem(HyperLink( AddListItem(HyperLink(
'Nuvola icons', 'Nuvola icons',
'www.icon-king.com/projects/nuvola/') + 'www.icon-king.com/projects/nuvola/') +
' (for application icon'); ' (for application icon)');
EndBulletList; EndBulletList;
AddEmptyLine; AddEmptyLine;

6
applications/biffexplorer/bemain.pas
View File

@@ -1162,10 +1162,6 @@ begin
// PAnsiChar // PAnsiChar
// Avoid buffer overrun // Avoid buffer overrun
ls := Length(FBuffer);
pa := PAnsiChar(@FBuffer[idx]); pa := PAnsiChar(@FBuffer[idx]);
ls := 0; ls := 0;
while (pa^ <> #0) and (pa - @FBuffer[0] < Length(FBuffer)) do while (pa^ <> #0) and (pa - @FBuffer[0] < Length(FBuffer)) do
@@ -1180,7 +1176,7 @@ begin
// WideString // WideString
if idx < Length(FBuffer) then begin if idx < Length(FBuffer) then begin
ls := Min(FBuffer[idx], (Length(FBuffer) - idx - 1) div Sizeof(wideChar)); ls := Min(FBuffer[idx], (Length(FBuffer) - idx - 1) div SizeOf(WideChar));
SetLength(sw, ls); SetLength(sw, ls);
j := 0; j := 0;
i := idx + 2; i := idx + 2;