Browse Subversion Repository
Diff of /WebModuleUnit1.pas
 Parent Directory
|  Revision Log
|  Patch
| 249 |
procedure TWebModule1.regist(var com: string); |
procedure TWebModule1.regist(var com: string); |
| 250 |
var |
var |
| 251 |
i: integer; |
i: integer; |
| 252 |
|
s: TSTringList; |
| 253 |
begin |
begin |
| 254 |
i := 1; |
s:=TStringList.Create; |
| 255 |
while True do |
try |
| 256 |
begin |
s.Text:=com; |
| 257 |
i := Pos(#$D#$A, com, i); |
for i := 0 to s.Count-1 do |
| 258 |
if i = 0 then |
s[i]:='<p>'+s[i]+'</p>'; |
| 259 |
break; |
com:=s.Text; |
| 260 |
Delete(com, i, Length(#$D#$A)); |
finally |
| 261 |
Insert('<br>', com, i); |
s.Free; |
|
inc(i, 4); |
|
| 262 |
end; |
end; |
| 263 |
end; |
end; |
| 264 |
|
|
| 616 |
FDTable2.CreateTable(false, [tpTable]); |
FDTable2.CreateTable(false, [tpTable]); |
| 617 |
FDTable2.Active := True; |
FDTable2.Active := True; |
| 618 |
FDTable2.AppendRecord([Request.ScriptName, 'pbbs clone', |
FDTable2.AppendRecord([Request.ScriptName, 'pbbs clone', |
| 619 |
'<h1 align=center style=font:Verdana;color:gray;font-weight:bold>P-BBS CLONE</h1>', |
'<h1 style=font-family:Verdana;color:gray;font-weight:bold;text-align:center>P-BBS CLONE</h1>', |
| 620 |
'admin', 'あほ,ばか,死ね,<style,<script,<link', false]); |
'admin', 'あほ,ばか,死ね,<style,<script,<link', false]); |
| 621 |
m := TResourceStream.Create(HInstance, 'setup', RT_RCDATA); |
m := TResourceStream.Create(HInstance, 'setup', RT_RCDATA); |
| 622 |
try |
try |
|
|
Legend:
| Removed from v.17 |
|
| changed lines |
| |
Added in v.18 |
|
|
| |
Parent Directory
Revision Log
Patch