IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Нужна помошь в решение задачи!..По теме Файлы, не знаю как решать!
F@RTEM
сообщение 16.06.2007 13:44
Сообщение #1


Гость






Тема:Файлы(текствовые);
ЗАДАЧА:
Дан текст, в котором есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок.

Причём нужна брать текст из файла вывести на экран...
А в тесте несколько строчек!
Нужен Текст задачи!!
P.S.
Лучше решить задачу в делфи...
Но можно и в паскале...сам потом передалаю

ЗАРАНЕЕ спасибо!!
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 18.06.2007 22:24
Сообщение #2


Гость






Добавил комментарии
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; // а это, собственно, означает освобождение списка строк. Фактически - удаление его

end;
end;



P.S. Тему надо бы двинуть в Delphi ...
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 14.07.2025 21:38
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"