#1 Ugly Error in StRegEx.pas

open
nobody
None
5
2013-01-15
2004-02-24
Karl Hans-Dieter
No

I'm sure no one has ever really used
TStStreamRegEx.ReplaceString ;((

starting at line 1102
****************************
if (FReplacePatSL.Count > 0) then begin
OK := BuildPatternStr(FReplacePatStr, Len,
FReplacePatSL);
if (OK) then begin
if (Len > 0) then
//GetPattern(FReplacePatStr, FReplacePatPtr)
replacee by hdk
GetReplace(FReplacePatStr, FReplacePatPtr)
else
DisposeItems(FReplacePatPtr);
end else
DisposeItems(FReplacePatPtr);
end else
DisposeItems(FReplacePatPtr);
*****************************
you need to replace GetPattern with GetReplace!!

a second thing in TStRegEx.SetStreamProperties:
i think Out and In got messed up ......
********************************
procedure TStRegEx.SetStreamProperties;
begin
if (not Assigned(FStream)) then Exit;

FStream.InLineTermChar := FInLineTermChar;
FStream.InLineTerminator := FInLineTerminator;
FStream.InFixedLineLength := FInFixedLineLength;

//FStream.InLineTermChar :=
FOutLineTermChar; // by hdk
FStream.OutLineTermChar := FOutLineTermChar;
//FStream.InLineTerminator :=
FOutLineTerminator; // by hdk
FStream.OutLineTerminator := FOutLineTerminator;
//FStream.InFixedLineLength :=
FOutFixedLineLength; // by hdk
FStream.OutFixedLineLength := FOutFixedLineLength;
*********************************

please correct that

Discussion