Здравствуйте. Вот ломаю голову над этим: имеется набор символов, строка (string); И в этой строке, по идее, заложен смысл... т.е. там лежат отдельные слова, разделённые между собой знаком ";". Например: Судан;Чад;Танзания;Кот-Д'ивуар;Мали;. Требуется считать символы между знаками ";" и вывести это построчно с новой строки (Memo1.Lines.Add('?')) в Memo... Мда. Возьмём к примеру "Судан;Чад;" Возможно нужно запомнить index ;'ой (в нашем случае это 6), записать в integer, поискать дальше по string и записать в integer2 (в нашем случае это 10), а потом из integer2-integer и получим 4, далее вычесть 1 и это будет copy(string,integer+1,COUNT); Не получается нормально сделать цикл... Делаю - for q:=1 to Length(Edit1.Text) do
begin
if Edit1.Text[q]=';' then
begin
integer:=q; А дальше полная ерунда Кто мне сможет помочь?