Тема:Файлы(текствовые); ЗАДАЧА: Дан текст, в котором есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок.
Причём нужна брать текст из файла вывести на экран... А в тесте несколько строчек! Нужен Текст задачи!! P.S. Лучше решить задачу в делфи... Но можно и в паскале...сам потом передалаю
procedure TForm1.Button1Click(Sender: TObject); var sl: tstringlist; // это класс Дельфи, предназначенный для хранения _списка_ строк... begin sl := tstringlist.Create; // Создаем список строк
// в принципе можно обойтись и без try/finally, но я предпочитаю быть уверенным, что // объект будет удален независимо от успешности его обработки try
sl.LoadFromFile('txt.txt'); memo1.Text := Copy(sl.Text, Pos('(', sl.Text) + 1, Pos(')', sl.Text) - Pos('(', sl.Text) - 1); finally // поскольку это находится в Finally, то независимо от результата действий в секции Try // строка Free выполнится всегда ... sl.Free; // а это, собственно, означает освобождение списка строк. Фактически - удаление его