[vitmann]

Дана строка символов. Если в ней есть символ ‘+’, удалить все символы, предшествующие ему. Если такого символа нет, преобразовать строку, изменив порядок следования символов на обратный.

Код:

var s,t:string;
n,k,i:integer;
c:char;
begin
s:=Edit1.Text;
n:=Length(s);
k:=0;
t:='';
for i:=1 to n do begin

if c=#43 then Delete(s,1,i-1);
 end;
  else
 c:=s[i];
t:=c+t;
end;
  Edit2.Text:=inttostr(k);
  Edit3.Text:=t;
  end;
end.

Админ: Пользуемся тегами для оформления кода!

на else все время ошибку выдает, помогите пожалуйста сделать

[Alegun]

Правда не удалением, а копированием

Код:

uses 
 StrUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
var
 s: string;
 b: integer;
begin
 s:= Edit1.Text;
 b:= pos(#43, s);
  if b > 0 then
   Edit2.Text:= Copy(s, b + 1, Length(s)) else
   Edit2.Text:= {Ansi}ReverseString(s);
end;

[vitmann]

Edit2.Text:= {Ansi}ReverseString(s); выдает здесь ошибку(

[Alegun]

Какую? На прописку модуля StrUtils в uses формы я вроде намекнул.

[angvelem]

Сообщение от Alegun

Какую?...

Обычную, не добавлен в uses StrUtils.