paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 14:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed big endian issue in TestFormStreamFormat (bug #8012)

Browse Source 
git-svn-id: trunk@10854 -
This commit is contained in:
vincents 2007-04-02 21:52:51 +00:00
parent 5043251cbe
commit 4acff91db5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/lresources.pp
View File

@ -2154,16 +2154,16 @@ end;
function TestFormStreamFormat(Stream: TStream): TLRSStreamOriginalFormat;
var
Pos: TStreamSeekType;
Signature: Integer;
Signature: Array[1..4] of Char;
begin
Pos := Stream.Position;
Signature := 0;
Signature[1] := #0; // initialize, in case the stream is at its end
Stream.Read(Signature, SizeOf(Signature));
Stream.Position := Pos;
if (Byte(Signature) = $FF) or (Signature = Integer(FilerSignature)) then
if (Signature[1] = #$FF) or (Signature = FilerSignature) then
Result := sofBinary
// text format may begin with "object", "inherited", or whitespace
else if Char(Signature) in ['o','O','i','I',' ',#13,#11,#9] then
else if Signature[1] in ['o','O','i','I',' ',#13,#11,#9] then
Result := sofText
else
Result := sofUnknown;