paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 08:59:32 +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;
if ReadBufLen>0 then 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
if NewRangeString then begin
if RangeString then