Beのプロファイルへのリンクの修正

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 82ea1e2..f6a7ddc 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -4036,18 +4036,16 @@ var
        p : integer;
     BNum, BMark : string;
 begin
-    p := AnsiPos('BE:', AID);
+    p := AnsiPos('BE:', AnsiUpperCase(AID));
     if p > 0 then begin
-        BNum := Copy(AID, p+3, Length(AID));
-       AID := Copy(AID, 1, p - 1);
+       BNum := Copy(AID, p+3, Length(AID));
+        AID := Copy(AID, 1, p - 1);
         p := AnsiPos('-', BNum);
         if p > 0 then begin
-            BMark := Copy(BNum, p + 1, Length(BNum));
+            BMark := '?' + Trim(Copy(BNum, p + 1, Length(BNum)));
                BNum := Copy(BNum, 1, p - 1);
         end;
         BNum := Trim(BNum);
-        BMark := Trim(BMark);
-        if BMark = '' then BMark := '?';
         Result := AID + ' <a href="' + BE_PHP_URL
                + BNum + '&u=d:' + AURL + IntToStr(ANum)
             + '" target=_blank>' + BMark + '</a>';