Нужна помошь в решение задачи!..По теме Файлы, не знаю как решать! Опции

[F@RTEM]

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

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

ЗАРАНЕЕ спасибо!!

[volvo]

В Дельфях можно так сделать:

procedure TForm1.Button1Click(Sender: TObject);
var sl: tstringlist;
begin
  sl := tstringlist.Create;
  try
    sl.LoadFromFile('txt.txt');
    memo1.Text :=
      Copy(sl.Text, Pos('(', sl.Text) + 1, Pos(')', sl.Text) - Pos('(', sl.Text) - 1);
  finally
    sl.Free;
  end;
end;

[F@RTEM]

В Дельфях можно так сделать:

procedure TForm1.Button1Click(Sender: TObject);
var sl: tstringlist;
begin
  sl := tstringlist.Create;
  try
    sl.LoadFromFile('txt.txt');
    memo1.Text :=
      Copy(sl.Text, Pos('(', sl.Text) + 1, Pos(')', sl.Text) - Pos('(', sl.Text) - 1);
  finally
    sl.Free;
  end;
end;

Пасибо Работает...
а объясни мне пожалуйста(а то я не знаю) что это означает

procedure TForm1.Button1Click(Sender: TObject);
var sl: tstringlist;{ЭТО КАК Я ПОНИМАЮ ТОЖЕ САМОЕ ЧТО STRING НО ТОКА В НЕСКОЛЬКО СТРОЧКАХ...ТАК Я ПОНИМАЮ???}
begin
  sl := tstringlist.Create;
  try{А ВОТ ЧТО ЭТО ОЗНАЧАЕТ Я НЕЗНАЮ???НЕПОДСКАЖИТЕ???}
    sl.LoadFromFile('txt.txt');
    memo1.Text :=
      Copy(sl.Text, Pos('(', sl.Text) + 1, Pos(')', sl.Text) - Pos('(', sl.Text) - 1);
  finally {А ВОТ ЧТО ЭТО ОЗНАЧАЕТ Я НЕЗНАЮ???НЕПОДСКАЖИТЕ???}
    sl.Free;{А ВОТ ЧТО ЭТО ОЗНАЧАЕТ Я НЕЗНАЮ???НЕПОДСКАЖИТЕ???}
  end;
end;

Сообщение отредактировано: F@RTEM - 18.06.2007 20:56