26 lines
569 B
ObjectPascal
26 lines
569 B
ObjectPascal
program TokenizeString;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
SysUtils, Classes;
|
|
const
|
|
TestString = 'Hello,How,Are,You,Today';
|
|
var
|
|
Tokens: TStringList;
|
|
I: Integer;
|
|
begin
|
|
// Uses FCL facilities, "harder" algorithm not implemented
|
|
Tokens := TStringList.Create;
|
|
try
|
|
Tokens.Delimiter := ',';
|
|
Tokens.DelimitedText := TestString;
|
|
Tokens.Delimiter := '.'; // For example
|
|
// To standard Output
|
|
WriteLn(Format('Tokenize from: "%s"', [TestString]));
|
|
WriteLn(Format('to: "%s"',[Tokens.DelimitedText]));
|
|
finally
|
|
Tokens.Free;
|
|
end;
|
|
end.
|