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

reduced output of bin to text conversion

Browse Source 
git-svn-id: trunk@5795 -
This commit is contained in:
mattias 2004-08-15 18:11:29 +00:00
parent 50a941f84b
commit b5b5114632
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lresources.pp
View File

@ -1156,9 +1156,12 @@ end;
procedure LRSObjectBinaryToText(Input, Output: TStream); procedure LRSObjectBinaryToText(Input, Output: TStream);
procedure OutStr(const s: String); procedure OutStr(const s: String);
{$IFDEF VerboseLRSObjectBinaryToText}
var var
i: Integer; i: Integer;
{$ENDIF}
begin begin
{$IFDEF VerboseLRSObjectBinaryToText}
for i:=1 to length(s) do begin for i:=1 to length(s) do begin
if (s[i] in [#0..#8,#11..#12,#14..#31]) then begin if (s[i] in [#0..#8,#11..#12,#14..#31]) then begin
DbgOut('#'+IntToStr(ord(s[i]))); DbgOut('#'+IntToStr(ord(s[i])));
@ -1166,6 +1169,7 @@ procedure LRSObjectBinaryToText(Input, Output: TStream);
end else end else
DbgOut(s[i]); DbgOut(s[i]);
end; end;
{$ENDIF}
if Length(s) > 0 then if Length(s) > 0 then
Output.Write(s[1], Length(s)); Output.Write(s[1], Length(s));
end; end;