Question

How to split a string into an array by delimiter and remove empty elements in Pascal

Answer 1

program SplitStringProgram;

{$mode delphi}{$H+}

uses
  SysUtils;

function SplitString(const s: string; delimiter: Char): TStringArray;
var
  parts: TStringArray;
  temp: string;
  i: Integer;
begin
  parts := s.Split(delimiter);
  SetLength(Result, 0);

  for i := 0 to High(parts) do
  begin
    temp := parts[i];
    if temp <> '' then
    begin
      SetLength(Result, Length(Result) + 1);
      Result[High(Result)] := temp;
    end;
  end;
end;

var
  s: string;
  arr: TStringArray;
  element: string;

begin
  s := 'C#,Java,,C,,,Python,,,,,C++,,,,Pascal,,';

  arr := SplitString(s, ',');

  for element in arr do
    WriteLn(element);
end.



{
run:

C#
Java
C
Python
C++
Pascal

}

 

70+ SQL courses for beginners and professionals