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

fpexif: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8125 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-10-27 14:54:14 +00:00
parent 7cd8c31626
commit d415062ff4
15 changed files with 60 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpexif/fpeutils.pas
View File

@@ -296,6 +296,7 @@ begin
{$IFDEF ENDIAN_BIG}
Result := AValue;
{$ELSE}
Result := '';
SetLength(Result, Length(AValue));
for i:=1 to Length(AValue) do
Result[i] := WideChar(BEToN(PDWord(@AValue[i])^));
@@ -309,6 +310,7 @@ var
{$ENDIF}
begin
{$IFDEF ENDIAN_BIG}
Result := '';
SetLength(Result, Length(AValue));
for i:=1 to Length(AValue) do
Result[i] := WideChar(LEToN(PDWord(@AValue[i])^));
@@ -324,6 +326,7 @@ begin
{$IFDEF ENDIAN_BIG}
Result := AValue;
{$ELSE}
Result := '';
SetLength(Result, Length(AValue));
for i:=1 to Length(AValue) do
Result[i] := WideChar(NtoBE(PDWord(@AValue[i])^));
@@ -337,6 +340,7 @@ var
{$ENDIF}
begin
{$IFDEF ENDIAN_BIG}
Result := '';
SetLength(Result, Length(AValue));
for i:=1 to Length(AValue) do
Result[i] := WideChar(NtoLE(PDWord(@AValue[i])^));
@@ -494,7 +498,7 @@ var
mins, secs: Double;
i, j, len: Integer;
n: Integer;
s: String;
s: String = '';
res: Integer;
begin
Result := false;
@@ -1131,10 +1135,9 @@ var
begin
Assert(ASeparator <> '');
if AText = '' then begin
SetLength(Result, 0);
Result := nil;
if AText = '' then
exit;
end;
// AText := AText + ASeparator;
len := Length(AText);