TStringList.SetCommaText needs refactor
Original Reporter info from Mantis: Alextp
-
Reporter name: CudaText man
Original Reporter info from Mantis: Alextp
- Reporter name: CudaText man
Description:
It's obvious this should use SetDelimitedText with other params (2nd 3rd):
Procedure TStrings.SetCommaText(const Value: string);
begin
CheckSpecialChars;
C1:=Delimiter;
C2:=QuoteChar;
Delimiter:=',';
QuoteChar:='"';
Try
SetDelimitedText(Value);
Finally
Delimiter:=C1;
QuoteChar:=C2;
end;
end;
it's obvious this needs to be changed too:
procedure TStrings.AddCommaText(const S: String);
var
L: TStringList;
begin
L := TStringList.Create;
try
L.CommaText := S;
AddStrings(L);
finally
L.Free;
end;
end;
Mantis conversion info:
- Mantis ID: 36284
- Version: 3.3.1
- Fixed in version: 3.3.1
- Fixed in revision: 43454 (#23ef6459)
- Target version: 3.2.0