weezy
2010-11-26 15:29:36
I saw another thread with this problem and it's been *fixed* so I'm making a new one, basically the same issue except it now appears in this function on the text.simba include in reflection folder.
EDIT: Also happens on R_IsUpText, since I tried to make a quick-fix in my script simply using one uptext.
EDIT: Also happens on R_IsUpText, since I tried to make a quick-fix in my script simply using one uptext.
{*******************************************************************************
function TrimHTML(s: string): string;
By: lordsaturn, fixed by pyroryan
Description: Removes the HTML junk from a string.
*******************************************************************************}
function TrimHTML(S : string): string;
var
P, P2, PLength: integer;
Temp: string;
begin
P := Pos('<', S);
P2 := Pos('>', S);
Result := S;
PLength := P2 - P + 1;
while (P <> 0) and (P2 <> 0) do
begin
Delete(Result, P, PLength);
P := Pos('<', Result);
Temp := Result;
Delete(Temp, 1, P - 1);
PLength := Pos('>', Temp);
end;
end;