Patch, refactor StringList.GetTextstr and add GetTextStringEx
Original Reporter info from Mantis: Alextp
-
Reporter name: CudaText man
Original Reporter info from Mantis: Alextp
- Reporter name: CudaText man
Description:
Attach. Pls add *public method TStrings.GetTextStringEx and refact GetTextStr using it
Function TStrings.GetTextStr: string;
Var
NL: string;
begin
case FLBS of
tlbsLF: NL:=#10;
tlbsCRLF: NL:=#13#10;
tlbsCR: NL:=#13;
end;
Result:=GetTextStringEx(NL, true);
end;
why it needed? Simple. Sometimes user wants textstring with #0 char or with custom str, maybe "," or somthng. Now it possible. Speed is same.
Additional information:
Laz project.See pas file in it.It tests code
Mantis conversion info:
- Mantis ID: 28213
- Version: 2.6.4
- Fixed in version: 3.1.1
- Fixed in revision: 32792 (#4f82d103)
- Target version: 3.0.2