[JVCL-Checkins] CVS: dev/p3/examples/JediSurveyor/common JvSurveyUtils.pas,1.2,1.3

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/p3/examples/JediSurveyor/common
In directory sc8-pr-cvs1:/tmp/cvs-serv15853/p3/examples/JediSurveyor/common

Modified Files:
	JvSurveyUtils.pas 
Log Message:


Index: JvSurveyUtils.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/p3/examples/JediSurveyor/common/JvSurveyUtils.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvSurveyUtils.pas	20 Mar 2003 15:19:04 -0000	1.2
--- JvSurveyUtils.pas	25 Mar 2003 20:44:06 -0000	1.3
***************
*** 119,125 ****
  begin
    if ASurveyType = stFreeForm then
!     Result := StringReplace(S, '\n', #13#10, [rfReplaceAll])
    else
!     Result := StringReplace(S, cRecordSeparator, #13#10, [rfReplaceAll])
  end;
  
--- 119,125 ----
  begin
    if ASurveyType = stFreeForm then
!     Result := trim(StringReplace(S, '\n', #13#10, [rfReplaceAll]))
    else
!     Result := trim(StringReplace(S, cRecordSeparator, #13#10, [rfReplaceAll]));
  end;
  
***************
*** 133,139 ****
      T.Text := S;
      if ASurveyType = stFreeForm then
!       Result := StringReplace(S,#13#10,'\n',[rfReplaceAll])
      else
!       Result := StringReplace(S,#13#10,cRecordSeparator,[rfReplaceAll]);
      if (MyAnsiLastChar(Result) = cRecordSeparator) then
        SetLength(Result, Length(Result) - 1);
--- 133,139 ----
      T.Text := S;
      if ASurveyType = stFreeForm then
!       Result := StringReplace(trim(S),#13#10,'\n',[rfReplaceAll])
      else
!       Result := StringReplace(trim(S),#13#10,cRecordSeparator,[rfReplaceAll]);
      if (MyAnsiLastChar(Result) = cRecordSeparator) then
        SetLength(Result, Length(Result) - 1);