paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 20:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: lresources: use #127 instead

Browse Source 
git-svn-id: trunk@21142 -
This commit is contained in:
mattias 2009-08-09 02:43:35 +00:00
parent 72ff5f642d
commit 475d5ee4a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lresources.pp
View File

@ -1190,7 +1190,7 @@ begin
RightMargin:=80; RightMargin:=80;
if ReadBufLen>0 then begin if ReadBufLen>0 then begin
while ReadChar(c) do begin while ReadChar(c) do begin
NewRangeString:=(ord(c)>=32) and (ord(c)<=127); NewRangeString:=(ord(c)>=32) and (ord(c)<127);
// check if new char fits into line or if a new line must be started // check if new char fits into line or if a new line must be started
if NewRangeString then begin if NewRangeString then begin
if RangeString then if RangeString then