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.4 by h677, Wed Aug 13 05:16:07 2003 UTC revision 1.5 by h677, Wed Aug 13 07:24:38 2003 UTC
# Line 247  end; Line 247  end;
247  function TAbon.Execute(DestStrings : TStringList) : TStringList;  function TAbon.Execute(DestStrings : TStringList) : TStringList;
248  var  var
249      i : Integer;      i : Integer;
250        j : Integer;
251      bufline : String;      bufline : String;
252  begin  begin
253      FRetStrings.Clear;      FRetStrings.Clear;
# Line 255  begin Line 256  begin
256          for i:=0 to DestStrings.Count - 1 do begin          for i:=0 to DestStrings.Count - 1 do begin
257              if FindNGwords(DestStrings.Strings[i]) = true  then begin              if FindNGwords(DestStrings.Strings[i]) = true  then begin
258                  FRetStrings.Append(FAbonString);                  FRetStrings.Append(FAbonString);
259                end else if FCutoffNum > 0  then begin
260                    bufline := DestStrings.Strings[i];
261                    for j := 0 to 2 do begin
262                        Delete(bufline,1,Ansipos('<>',bufline)+1);
263                    end;
264                    Delete(bufline,Ansipos('<>',bufline),Length(bufline)-Ansipos('<>',bufline)+1);
265                    if Cutoff(bufline) = true then begin
266                        FRetStrings.Append(FAbonString);
267                    end else begin
268                        bufline := DestStrings.Strings[i];
269                        if Deleterlo = true then begin
270                            bufline := AnsiReplaceText( bufline,'&rlo;','' );
271                        end;
272                        if Replaceul = true then begin
273                            bufline := AnsiReplaceText( bufline,'<ul>','<br>' );
274                            bufline := AnsiReplaceText( bufline,'</ul>','<br>' );
275                        end;
276                        FRetStrings.Append(bufline);
277                    end;
278              end else begin              end else begin
279                  bufline := DestStrings.Strings[i];                  bufline := DestStrings.Strings[i];
280                  if Deleterlo = true then begin                  if Deleterlo = true then begin
281                      bufline := AnsiReplaceText( bufline,'&rlo;','' );                      bufline := AnsiReplaceText( bufline,'&rlo;','' );
282                  end;                  end;
283                  if Replaceul = true then begin                  if Replaceul = true then begin
284                       bufline := AnsiReplaceText( bufline,'<ul>','<br>' );                      bufline := AnsiReplaceText( bufline,'<ul>','<br>' );
285                       bufline := AnsiReplaceText( bufline,'</ul>','<br>' );                      bufline := AnsiReplaceText( bufline,'</ul>','<br>' );
286                  end;                  end;
287                  FRetStrings.Append(bufline);                  FRetStrings.Append(bufline);
288              end;              end;
# Line 270  begin Line 290  begin
290      end else begin      end else begin
291          for i:=0 to DestStrings.Count - 1 do begin          for i:=0 to DestStrings.Count - 1 do begin
292              if FindNGwords(DestStrings.Strings[i]) = false then begin              if FindNGwords(DestStrings.Strings[i]) = false then begin
293                  FRetStrings.Append(FAbonString);                  bufline := DestStrings.Strings[i];
294                    for j := 0 to 2 do begin
295                        Delete(bufline,1,Ansipos('<>',bufline)+1);
296                    end;
297                    Delete(bufline,Ansipos('<>',bufline),Length(bufline)-Ansipos('<>',bufline)+1);
298                    if Cutoff(bufline) = false then begin
299                        FRetStrings.Append(FAbonString);
300                    end else begin
301                        bufline := DestStrings.Strings[i];
302                        if Deleterlo = true then begin
303                            while  AnsiPos('&rlo',bufline) <> 0 do begin
304                                Delete(bufline,AnsiPos('&rlo',bufline),4);
305                            end;
306                        end;
307                        if Replaceul = true then begin
308                             bufline := AnsiReplaceText( bufline,'<ul>','<br>' );
309                            bufline := AnsiReplaceText( bufline,'</ul>','<br>' );
310                        end;
311                        FRetStrings.Append(bufline);
312                    end;
313              end else begin              end else begin
314                  bufline := DestStrings.Strings[i];                  bufline := DestStrings.Strings[i];
315                  if Deleterlo = true then begin                  if Deleterlo = true then begin

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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