Задача по Delphi!!!

[Rama666]

Удалить часть символьной строки, заключенной в скобки (вместе со скобками).

Помогите плиз.

[Lemo]

Чем помочь?

[Rama666]

Последние задание осталось для зачета

[kangreon]

Copy();
Pos();
PosEx();
Delete();
Почитайте информацию про эти функции.

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 var
 st:string;
 first,second:integer;
begin
st:='Ya ochen hochu sdat (etot neponyatniy dlya menya) zachet!';
Writeln('Before : ',st);

first:= Pos('(',st);       // определяем позицию первой скобки
second:= Pos(')',st);     // определяем позицию второй скобки

st:=copy(st,1,first-1)+copy(st,second+1,length(st)-second);
                          // копируем в st все кроме содержимого скобок вместе со скобками

Writeln('After : ',st);
Readln;

end.

ЗЫ : читайте книги.

[Serge_Bliznykov]

ну и я свой вариант добавлю.
Он тоже простой, хотя чуть-чуть получше вышеприведённого примера (учитывается закрывающая скобка только после открывающей..

Хотя, по сути, тоже простейший вариант, не учитывающий случай вложенных скобок (тогда будет работать неверно!)

uses ... , StrUtils;
....
procedure TForm2.Button1Click(Sender: TObject);
var s : string;
  p1 : integer;
begin
  s := 'привет :) от старых (но не сильно поношенных) штиблет!';
  p1 := Pos('(',s);
  if p1>0 then
    if PosEx(')',s, p1+1)>0 then Delete(s,p1, PosEx(')',s, p1+1)-p1+1);
  Edit1.Text := s;
end;