Další hit - jak rozdělit řetězec na části podle oddělovače? např. 'ABC-DEF-GHI' rozsekat podle pomlčky.

Jsou zhruba dvě možnosti - pomocí funkce pos hledat výskyt oddělovače, když zjistíme pozici, tak pomocí substring nebo delete string zkrátíme a opakujeme hledání, dokud oddělovač existuje.

Další možností je použít TStringList a jeho vlastností delimiter a delimitedText, viz následující příklad:

var
 list:TStringList;
    i:integer;
begin

 list:=TStringList.Create;
 list.Delimiter:=
'-'
;
 list.DelimitedText:=
'abc-def'
;
 
for
 i:=
0
 
to
 list.Count-
1
 
do
 
begin

  showMessage(list.Strings[i]);
 
end
;
 list.Free;
end
.

Syntax higlighted by Syntax highlighter, available at www.4ITDevelopers.net and www.JakNaWin.com