[JVCL-Checkins] dev/JVCL3/run JvStrings.pas,1.34,1.35 - HasStrValue now returns True if everything went well

[Olivier S. <ob...@us...>]

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

Modified Files:
	JvStrings.pas 
Log Message:
HasStrValue now returns True if everything went well


Index: JvStrings.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvStrings.pas,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** JvStrings.pas	17 Feb 2005 10:20:54 -0000	1.34
--- JvStrings.pas	20 May 2005 14:43:58 -0000	1.35
***************
*** 345,348 ****
--- 345,349 ----
    S := Copy(AText, P + L, P2 - (P + L));
    AValue := StringReplace(S, '~~', Cr, [rfReplaceAll]);
+   Result := False;
  end;