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.182 by h677, Wed Mar 30 14:09:48 2005 UTC revision 1.183 by h677, Thu Mar 31 13:03:07 2005 UTC
# Line 4036  var Line 4036  var
4036          p : integer;          p : integer;
4037      BNum, BMark : string;      BNum, BMark : string;
4038  begin  begin
4039      p := AnsiPos('BE:', AID);      p := AnsiPos('BE:', AnsiUpperCase(AID));
4040      if p > 0 then begin      if p > 0 then begin
4041          BNum := Copy(AID, p+3, Length(AID));          BNum := Copy(AID, p+3, Length(AID));
4042          AID := Copy(AID, 1, p - 1);          AID := Copy(AID, 1, p - 1);
4043          p := AnsiPos('-', BNum);          p := AnsiPos('-', BNum);
4044          if p > 0 then begin          if p > 0 then begin
4045              BMark := Copy(BNum, p + 1, Length(BNum));              BMark := '?' + Trim(Copy(BNum, p + 1, Length(BNum)));
4046                  BNum := Copy(BNum, 1, p - 1);                  BNum := Copy(BNum, 1, p - 1);
4047          end;          end;
4048          BNum := Trim(BNum);          BNum := Trim(BNum);
         BMark := Trim(BMark);  
         if BMark = '' then BMark := '?';  
4049          Result := AID + ' <a href="' + BE_PHP_URL          Result := AID + ' <a href="' + BE_PHP_URL
4050                  + BNum + '&u=d:' + AURL + IntToStr(ANum)                  + BNum + '&u=d:' + AURL + IntToStr(ANum)
4051              + '" target=_blank>' + BMark + '</a>';              + '" target=_blank>' + BMark + '</a>';

Legend:
Removed from v.1.182  
changed lines
  Added in v.1.183

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