Commit MetaInfo

Revision83eb1c7dc9ec3955a6b98643e247b9a062ab2349 (tree)
Zeit2022-01-05 07:38:52
Autoryamat0jp <yamat0jp@yaho...>
Commiteryamat0jp

Log Message

encoding version

Ändern Zusammenfassung

Diff

--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -259,7 +259,7 @@ begin
259259 p := enc.Encode(word);
260260 str := Format('<span style=background-color:yellow>%s</span>', [p]);
261261 str := enc.Encode(Copy(s, Last, j - Last)) + str;
262- if Last = 1 then
262+ if (Last = 1) or (i >= findResult.Count) then
263263 findResult.Add(str)
264264 else
265265 findResult[i] := findResult[i] + str;
@@ -592,6 +592,7 @@ begin
592592 list.DelimitedText := ng;
593593 for s in list do
594594 result := ReplaceText(result, s, '*****');
595+ // result:=TNetEncoding.HTML.Encode(result);
595596 finally
596597 list.Free;
597598 end;
@@ -624,7 +625,7 @@ begin
624625 i := FDTable2.FieldByName('cmnumber').AsInteger + 1;
625626 list := TStringList.Create;
626627 try
627- list.Text := raw;
628+ list.Text := TNetEncoding.HTML.Encode(raw);
628629 makeComment(list);
629630 FDTable2.AppendRecord([FDTable1.FieldByName('dbnumber').AsInteger, i,
630631 title, name, list.Text, Now, raw]);
--- a/bbs2.dproj
+++ b/bbs2.dproj
@@ -197,7 +197,7 @@
197197 </Source>
198198 </Delphi.Personality>
199199 <Deployment>
200- <DeployFile LocalName="js\main.js" Configuration="Debug" Class="ProjectFile">
200+ <DeployFile LocalName="templates\login.htm" Configuration="Debug" Class="ProjectFile">
201201 <Platform Name="Win32">
202202 <RemoteDir>.\</RemoteDir>
203203 <Overwrite>true</Overwrite>
@@ -401,7 +401,7 @@
401401 <Overwrite>true</Overwrite>
402402 </Platform>
403403 </DeployFile>
404- <DeployFile LocalName="templates\login.htm" Configuration="Debug" Class="ProjectFile">
404+ <DeployFile LocalName="js\main.js" Configuration="Debug" Class="ProjectFile">
405405 <Platform Name="Win32">
406406 <RemoteDir>.\</RemoteDir>
407407 <Overwrite>true</Overwrite>
Show on old repository browser