Placing values of a memo inside an array

Question

I have the following component Memo with the texts:

200:80
177:3306

I need to put this text inside a array, for example, based on the first line, the text 200 (would be array[1]) and the countryside 80 (would be array[2]). Remembering that I need to use as a delimiter the : (two points), and in the sequence traverse that same and show in a ShowMessage.

I can’t do it at all.

Answer 1

You can use the function ExtractStrings

Var
 Numeros: TStringList;
 Numero: string;
begin
 Numeros := TStringList.Create;

 Memo1.Clear;
 Memo1.Lines.Add('200:80');
 Memo1.Lines.Add('177:3306');

 try
   ExtractStrings([':'], [], pchar(Memo1.Text), Numeros);

   for Numero in Numeros do begin
     Showmessage(Numero);
   end;

 finally
   Numeros.Free;
 end;