Explodes in Delphi

Question

I have a txt file in which data is saved as follows:

00:46:30@21/08/2014@Carlos dos Santos@são Paulo

In PHP I would use the explode to turn each die before "@" into columns.

How do I do this in Delphi ? I need each separate die @ turn a column, so I can put them in a LISTVIEW.

Answer 1

A possible technical repair¹ is to use a Tstringlist:

var
   Colunas : TStringlist;

begin
   Colunas := TStringlist.Create;
   Colunas.Text := StringReplace('00:46:30@21/08/2014@Carlos dos Santos@São Paulo',
      '@',Char(13)+Char(10),[rfReplaceAll]);

Tstringlist internally uses the sequence CR LF to separate items, so the above code transforms a long line into several separate items, by changing the @ in sequence CR LF

Edit: As well remembered by Edgar Muniz Berlinck, the Tstringlist has a property to break the string by other delimiters, thereby:

var
   Colunas : TStringlist;

begin
   Colunas := TStringlist.Create;
   Colunas.Delimiter := '@';
   Colunas.DelimitedText := Linhas[i];

_{1. gambiarra}