Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.184.2.15 by h677, Mon Jun 20 14:11:40 2005 UTC revision 1.184.2.16 by h677, Wed Jun 22 15:11:53 2005 UTC
# Line 1965  begin Line 1965  begin
1965          end;          end;
1966          Delim := '<>';          Delim := '<>';
1967          Result.FType := glt2chNew;          Result.FType := glt2chNew;
         {  
         Result.FName := Trim(RemoveToken(Line, Delim));  
         Result.FMailTo := Trim(RemoveToken(Line, Delim));  
         Result.FDateTime := Trim(RemoveToken(Line, Delim));  
         bufBody := Trim(RemoveToken(Line, Delim));  
         }  
1968          //Trimしてはいけない気がする byもじゅ          //Trimしてはいけない気がする byもじゅ
1969          Result.FName := RemoveToken(Line, Delim);          Result.FName := RemoveToken(Line, Delim);
1970          Result.FMailTo := RemoveToken(Line, Delim);          Result.FMailTo := RemoveToken(Line, Delim);
1971          Result.FDateTime := RemoveToken(Line, Delim);          Result.FDateTime := RemoveToken(Line, Delim);
1972          Result.FBody := RemoveToken(Line, Delim);          Result.FBody := RemoveToken(Line, Delim);
1973            //空だと問題が起きるから、空白を設定する
1974          if Result.FBody = '' then begin          if Result.FBody = '' then begin
1975                  Result.FBody := '&nbsp;';                  Result.FBody := '&nbsp;';
1976            end else if ( Result.FBody[1] = ' ' ) then begin
1977                    //2ちゃんねるとかだと、本文の先頭に1つ半角空白が入っているので削除する
1978                    //他の掲示板で、レス自体の空白かもしれないけどそれは諦める
1979                    Delete(Result.FBody, 1, 1);
1980          end;          end;
1981          //Result.FTitle := Trim(RemoveToken(Line, Delim));          //Result.FTitle := Trim(RemoveToken(Line, Delim));
1982          Result.FTitle := RemoveToken(Line, Delim);          Result.FTitle := RemoveToken(Line, Delim);

Legend:
Removed from v.1.184.2.15  
changed lines
  Added in v.1.184.2.16

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26