[JVCL-Checkins] dev/JVCL3/run JvAppIniStorage.pas,1.46,1.47 - TJvCustomAppIniStorage.ReplaceCRLFToSlashN works only if the

[Jens F. <jfu...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv829/JVCL3/run

Modified Files:
	JvAppIniStorage.pas 
Log Message:
TJvCustomAppIniStorage.ReplaceCRLFToSlashN works only if there is a #13 or #10 in the value


Index: JvAppIniStorage.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvAppIniStorage.pas,v
retrieving revision 1.46
retrieving revision 1.47
diff -C2 -d -r1.46 -r1.47
*** JvAppIniStorage.pas	15 Dec 2004 07:30:52 -0000	1.46
--- JvAppIniStorage.pas	17 Dec 2004 17:58:27 -0000	1.47
***************
*** 190,197 ****
  function TJvCustomAppIniStorage.ReplaceCRLFToSlashN(const Value: string): string;
  begin
!   Result := StringReplace(Value, '\', '\\', [rfReplaceAll]);
!   Result := StringReplace(Result , #13#10, '\n', [rfReplaceAll]);
!   Result := StringReplace(Result , #10, '\n', [rfReplaceAll]);
!   Result := StringReplace(Result , #13, '\n', [rfReplaceAll]);
  end;
  
--- 190,202 ----
  function TJvCustomAppIniStorage.ReplaceCRLFToSlashN(const Value: string): string;
  begin
!   if (Pos(#13, Value) > 0) or (Pos(#10, Value) > 0) then
!   begin
!     Result := StringReplace(Value, '\', '\\', [rfReplaceAll]);
!     Result := StringReplace(Result , #13#10, '\n', [rfReplaceAll]);
!     Result := StringReplace(Result , #10, '\n', [rfReplaceAll]);
!     Result := StringReplace(Result , #13, '\n', [rfReplaceAll]);
!   end
!   else
!     Result := Value;
  end;