[fpc-pascal] TStringList.SetCommaText needs refactor

[AlexeyT via fpc-pascal]

It's obvious this needs to use SetDelimetedText 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;


--
Regards,
Alexey

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal