Revision | 83eb1c7dc9ec3955a6b98643e247b9a062ab2349 (tree) |
---|---|
Zeit | 2022-01-05 07:38:52 |
Autor | yamat0jp <yamat0jp@yaho...> |
Commiter | yamat0jp |
encoding version
@@ -259,7 +259,7 @@ begin | ||
259 | 259 | p := enc.Encode(word); |
260 | 260 | str := Format('<span style=background-color:yellow>%s</span>', [p]); |
261 | 261 | str := enc.Encode(Copy(s, Last, j - Last)) + str; |
262 | - if Last = 1 then | |
262 | + if (Last = 1) or (i >= findResult.Count) then | |
263 | 263 | findResult.Add(str) |
264 | 264 | else |
265 | 265 | findResult[i] := findResult[i] + str; |
@@ -592,6 +592,7 @@ begin | ||
592 | 592 | list.DelimitedText := ng; |
593 | 593 | for s in list do |
594 | 594 | result := ReplaceText(result, s, '*****'); |
595 | + // result:=TNetEncoding.HTML.Encode(result); | |
595 | 596 | finally |
596 | 597 | list.Free; |
597 | 598 | end; |
@@ -624,7 +625,7 @@ begin | ||
624 | 625 | i := FDTable2.FieldByName('cmnumber').AsInteger + 1; |
625 | 626 | list := TStringList.Create; |
626 | 627 | try |
627 | - list.Text := raw; | |
628 | + list.Text := TNetEncoding.HTML.Encode(raw); | |
628 | 629 | makeComment(list); |
629 | 630 | FDTable2.AppendRecord([FDTable1.FieldByName('dbnumber').AsInteger, i, |
630 | 631 | title, name, list.Text, Now, raw]); |
@@ -197,7 +197,7 @@ | ||
197 | 197 | </Source> |
198 | 198 | </Delphi.Personality> |
199 | 199 | <Deployment> |
200 | - <DeployFile LocalName="js\main.js" Configuration="Debug" Class="ProjectFile"> | |
200 | + <DeployFile LocalName="templates\login.htm" Configuration="Debug" Class="ProjectFile"> | |
201 | 201 | <Platform Name="Win32"> |
202 | 202 | <RemoteDir>.\</RemoteDir> |
203 | 203 | <Overwrite>true</Overwrite> |
@@ -401,7 +401,7 @@ | ||
401 | 401 | <Overwrite>true</Overwrite> |
402 | 402 | </Platform> |
403 | 403 | </DeployFile> |
404 | - <DeployFile LocalName="templates\login.htm" Configuration="Debug" Class="ProjectFile"> | |
404 | + <DeployFile LocalName="js\main.js" Configuration="Debug" Class="ProjectFile"> | |
405 | 405 | <Platform Name="Win32"> |
406 | 406 | <RemoteDir>.\</RemoteDir> |
407 | 407 | <Overwrite>true</Overwrite> |