OSDN Git Service
(root)
/
gikonavigoeson
/
gikonavi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d42871f
)
Beのプロファイルへのリンクの修正
author
h677
<h677>
Thu, 31 Mar 2005 13:03:07 +0000
(13:03 +0000)
committer
h677
<h677>
Thu, 31 Mar 2005 13:03:07 +0000
(13:03 +0000)
GikoSystem.pas
patch
|
blob
|
history
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 : integer;
BNum, BMark : string;
begin
- p := AnsiPos('BE:', A
ID
);
+ p := AnsiPos('BE:', A
nsiUpperCase(AID)
);
if p > 0 then begin
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
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);
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>';
Result := AID + ' <a href="' + BE_PHP_URL
+ BNum + '&u=d:' + AURL + IntToStr(ANum)
+ '" target=_blank>' + BMark + '</a>';