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.37 by yoffy, Mon Jan 10 15:41:04 2005 UTC revision 1.37.4.1 by h677, Sat Jul 2 04:09:23 2005 UTC
# Line 807  var Line 807  var
807          pos: Integer;          pos: Integer;
808          tmp: string;          tmp: string;
809  begin  begin
810            tmp := '';
811          pos := AnsiPos('&#18', AString);          pos := AnsiPos('&#18', AString);
812          while pos <> 0  do begin          while pos <> 0  do begin
813                  if StrToIntDef(Copy(AString, pos+4, 2), -1) > 0 then begin                  tmp := tmp + Copy(AString, 1, pos - 1);
814                          if (AString[pos+6] = ';' )  or (AString[pos+6] = ' ') then begin                  Delete(AString, 1, pos -1);
815                                  tmp := tmp + Copy(AString, 1, pos - 1);                  if StrToIntDef(Copy(AString, 4, 2), -1) > 0 then begin
816                                  Delete(AString, 1, pos+6);                          if (AString[7] = ';' )  or (AString[7] = ' ') then begin
817                          end else if StrToIntDef(AString[pos+6], -1) = -1 then begin                                  Delete(AString, 1, 7);
818                                  tmp := tmp + Copy(AString, 1, pos - 1);                          end else if StrToIntDef(AString[7], -1) = -1 then begin
819                                  Delete(AString, 1, pos+5);                                  Delete(AString, 1, 6);
820                          end else begin                          end else begin
821                                  tmp := tmp + Copy(AString, 1, pos + 5);                                  tmp := tmp + Copy(AString, 1, 6);
822                                  Delete(AString, 1, pos+5);                                  Delete(AString, 1, 6);
823                          end;                          end;
824                  end else begin                  end else begin
825                          tmp := tmp + Copy(AString, 1, pos + 5);                          tmp := tmp + Copy(AString, 1, 7);
826                          Delete(AString, 1, pos+5);                          Delete(AString, 1, 7);
827                  end;                  end;
828                  pos := AnsiPos('&#18', AString);                  pos := AnsiPos('&#18', AString);
829          end;          end;
# Line 833  begin Line 834  begin
834    
835          pos := AnsiPos('&#179', AString);          pos := AnsiPos('&#179', AString);
836          while pos <> 0 do begin          while pos <> 0 do begin
837                  if StrToIntDef(Copy(AString, pos+5, 1), 0) > 2 then begin                  tmp := tmp + Copy(AString, 1, pos - 1);
838                          if (AString[pos+6] = ';') or (AString[pos+6] = ' ') then begin                  Delete(AString, 1, pos - 1);
839                                  tmp := tmp + Copy(AString, 1, pos - 1);                  if StrToIntDef(Copy(AString, 6, 1), 0) > 2 then begin
840                                  Delete(AString, 1, pos+6);                          if (AString[7] = ';') or (AString[7] = ' ') then begin
841                          end else if StrToIntDef(AString[pos+6], -1) = -1 then begin                                  Delete(AString, 1, 7);
842                                  tmp := tmp + Copy(AString, 1, pos - 1);                          end else if StrToIntDef(AString[7], -1) = -1 then begin
843                                  Delete(AString, 1, pos+5);                                  Delete(AString, 1, 6);
844                          end else begin                          end else begin
845                                  tmp := tmp + Copy(AString, 1, pos + 5);                                  tmp := tmp + Copy(AString, 1, 5);
846                                  Delete(AString, 1, pos+5);                                  Delete(AString, 1, 5);
847                          end;                          end;
848                  end else begin                  end else begin
849                          tmp := tmp + Copy(AString, 1, pos + 5);                          tmp := tmp + Copy(AString, 1, 5);
850                          Delete(AString, 1, pos+5);                          Delete(AString, 1, 5);
851                  end;                  end;
852                  pos := AnsiPos('&#179', AString);                  pos := AnsiPos('&#179', AString);
853          end;          end;

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.37.4.1

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