Anonymous user
Tokenize a string: Difference between revisions
→{{header|Ada}}: More proper use of 'Range and 'First
(→{{header|Ada}}: More proper use of 'Range and 'First) |
|||
Line 51:
procedure Parse_Commas is
Source_String : String := "Hello,How,Are,You,Today";
Index_List : array(
Next_Index : Natural :=
begin
Index_List(Next_Index) :=
while Index_List(Next_Index) < Source_String'Last loop
Next_Index := Next_Index + 1;
| |||