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

Misc packages: Adjust to changes in Laz/main (deprecated OffsetRect), less hints and warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8838 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-15 23:33:46 +00:00
parent d060e53a49
commit 7940c5f9df
36 changed files with 65 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/jvcllaz/run/JvMM/jvid3v2base.pas
View File

@ -1822,7 +1822,7 @@ var
//P, ContentPtr: PWideChar;
//S: WideString;
P, ContentPtr: PChar;
S: String;
S: String = '';
begin
//ContentPtr := PWideChar(Content);
ContentPtr := PChar(Content);
@ -1869,7 +1869,7 @@ procedure ExtractStrings(Separator: WideChar; const Content: String;
var
EOS: Boolean;
Tail: PChar;
S: String;
S: String = '';
ContentPtr: PChar;
{
Tail: PWideChar;
@ -5922,7 +5922,7 @@ const
CMinimalHeaderSize: array [Boolean] of Byte = (6, 10);
var
Frame: TJvID3Frame;
FrameIDStr: AnsiString;
FrameIDStr: AnsiString = '';
FrameID: TJvID3FrameID;
LFrameIDLength: Byte;
@ -8280,6 +8280,8 @@ var
P: PChar;
S: string;
begin
Result := '';
LCount := GetCount;
Size := 0;
SepLen := Length(Separator);

2
components/jvcllaz/run/JvMM/jvid3v2types.pas
View File

@ -27,7 +27,7 @@ Known Issues:
unit JvId3v2Types;
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface
uses