Hello,

Conforms issue #16043:

"ExtractStrings in the Classes unit skips over empty text. For example:

"AAA,BBB,,CCC"

is converted to:

"AAA"
"BBB"
"CCC"

I was expecting:

"AAA"
"BBB"
""
"CCC"

Is this the intended behavior, or is it a bug?".

So, if I try:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: TStringList;
begin
  s := TStringList.Create;
  try
    s.StrictDelimiter := True;
    s.Delimiter := '|';
    ExtractStrings(['|'], [], 'A|B||C', s);
    ShowMessage(IntToStr(s.Count));
  finally
    s.Free;
  end;
end;

It returns 3. But, if I try:

procedure TForm1.Button2Click(Sender: TObject);
var
  s: TStringList;
begin
  s := TStringList.Create;
  try
    s.StrictDelimiter := True;
    s.Delimiter := '|';
    s.DelimitedText := 'A|B||C';
    ShowMessage(IntToStr(s.Count));
  finally
    s.Free;
  end;
end;

It returns 4.

How to configure ExtractStrings to works without skip empty strings like DelimitedText?

Thank you!

Yes. This is delphi compatible.

The only possibility is to add a new argument ExtractEmpty : Boolean = False;
which would, when set to true, also extract empty values.

Michael.

2014/1/26 Michael Van Canneyt

I can imagine that the Delphi developers started from a routine to extract words from texts, where several spaces between 2 words would count only as one separator.

2014-01-26 Michael Van Canneyt

It would be a nice idea an new argument or an overloaded function. Could use the StrictDelimiter name, to maintain compatibility with the already used name in TStrings. :)

Sure. Feel free to supply a patch.

Michael.

2014-01-27 Michael Van Canneyt

Done: http://bugs.freepascal.org/view.php?id=25633.

Thank you again! (y)

Solved, but I did it with a new argument. Try to avoid code duplication...

Michael.

2014-01-28 Michael Van Canneyt

Tested and worked perfectly. Nice job! :)