Split a string into an array of strings based on a delimiter

by

you can use the TStrings.DelimitedText property for split an string

check this sample

program Project28;

{$APPTYPE CONSOLE}

uses
  Classes,
  SysUtils;

procedure Split(Delimiter: Char; Str: string; ListOfStrings: TStrings) ;
begin
   ListOfStrings.Clear;
   ListOfStrings.Delimiter       := Delimiter;
   ListOfStrings.StrictDelimiter := True; // Requires D2006 or newer.
   ListOfStrings.DelimitedText   := Str;
end;


var
   OutPutList: TStringList;
begin
   OutPutList := TStringList.Create;
   try
     Split(':', 'word:doc,txt,docx', OutPutList) ;
     Writeln(OutPutList.Text);
     Readln;
   finally
     OutPutList.Free;
   end;
end.

UPDATE

See this link for an explanation of StrictDelimiter.

More Related Contents:

  1. Split string with multiple delimiters in Python [duplicate]
  2. Converting TMemoryStream to ‘String’ in Delphi 2009
  3. How can I split by 1 or more occurrences of a delimiter in Python?
  4. Split a string by a delimiter in python
  5. How to have Delphi TWebbrowser component running in IE9 mode?
  6. Splitting a string into words and punctuation
  7. List of Delphi language features and version in which they were introduced/deprecated
  8. Product code looks like abcd2343, how to split by letters and numbers?
  9. Why do I get “type has no typeinfo” error with an enum type
  10. Split a string only by first space in python
  11. How to split strings inside a list by whitespace characters
  12. How do I send a string from one instance of my Delphi program to another?
  13. How to change the implementation (detour) of an externally declared function
  14. How to use Animated Gif in a delphi form
  15. Split String by delimiter position using oracle SQL
  16. Can you use zero-width matching regex in String split?
  17. R split string by symbol
  18. How to split a Python string on new line characters [duplicate]
  19. Using TRichEdit at runtime without defining a parent
  20. How to shell to another app and have it appear in a delphi form
  21. Delphi 2009: How to communicate between Windows service & desktop application under Vista?
  22. Plugins system for Delphi application – bpl vs dll?
  23. Delphi, How to get all local IPs?
  24. How to get a stack trace from FastMM
  25. Delphi event handling, how to create own event
  26. How to count the number of lines of a string in javascript
  27. Java replace all square brackets in a string
  28. Free Encryption library for Delphi [closed]
  29. Why are Delphi objects assigned even after calling .Free?
  30. GetThreadLocale returns different value than GetUserDefaultLCID?

Leave a Comment