Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/AbonUnit.pas

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

revision 1.19 by h677, Fri Nov 21 13:50:56 2003 UTC revision 1.20 by h677, Wed Nov 26 09:50:00 2003 UTC
# Line 100  const Line 100  const
100    
101  implementation  implementation
102    
103    uses MojuUtils;
104    
105  constructor TAbon.Create;  constructor TAbon.Create;
106  begin  begin
107      // 初期化      // 初期化
# Line 433  begin Line 435  begin
435          end else begin          end else begin
436              bufline := ThreadStrings.Strings[i];              bufline := ThreadStrings.Strings[i];
437              if Deleterlo = true then begin              if Deleterlo = true then begin
438                  bufline := AnsiReplaceText( bufline,'&rlo;','' );                  bufline := CustomStringReplace(bufline,'&rlo;','');
439                  bufline := AnsiReplaceText( bufline,'&lro;','' );                  bufline := CustomStringReplace(bufline,'&lro;','');
440              end;              end;
441              if Replaceul = true then begin              if Replaceul = true then begin
442                  bufline := AnsiReplaceText( bufline,'<ul>','<br>' );                  bufline := CustomStringReplace( bufline,'<ul>','<br>' );
443                  bufline := AnsiReplaceText( bufline,'</ul>','<br>' );                  bufline := CustomStringReplace( bufline,'</ul>','<br>' );
444              end;              end;
445              ThreadStrings.Strings[i] := bufline;              ThreadStrings.Strings[i] := bufline;
446          end;          end;
# Line 469  begin Line 471  begin
471      end else begin      end else begin
472          bufline := ResString;          bufline := ResString;
473          if Deleterlo = true then begin          if Deleterlo = true then begin
474              bufline := AnsiReplaceText( bufline,'&rlo;','' );              bufline := CustomStringReplace( bufline,'&rlo;','' );
475              bufline := AnsiReplaceText( bufline,'&lro;','' );              bufline := CustomStringReplace( bufline,'&lro;','' );
476          end;          end;
477          if Replaceul = true then begin          if Replaceul = true then begin
478              bufline := AnsiReplaceText( bufline,'<ul>','<br>' );              bufline := CustomStringReplace( bufline,'<ul>','<br>' );
479              bufline := AnsiReplaceText( bufline,'</ul>','<br>' );              bufline := CustomStringReplace( bufline,'</ul>','<br>' );
480          end;          end;
481          ResString := bufline;          ResString := bufline;
482      end;      end;

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

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