[Brons14]

Здраствуйте, помогите пожалуйста с задачей
нужно чтобы введенный символ в edit1 в тексте, введенном в memo1, заменялись на символ введенный в edit2, если символа в тексте нет то к тексту добавлялись символы из edit1

Код:

var
S: string;
i: integer;
begin
i:=length(S);
S:=memo1.Text;
if S[i]=edit1.Text then memo1.Text:=edit2.text else memo1.Text:=memo1.Text+edit2.text;
end;
end.

так введенное в edit2 просто добавляется к тексту(

[Страдалецъ]

У меня мозги закипели в попытках понять что вы спросили.

[Brons14]

нужно указать символ в edit1 и если в тексте есть этот символ, то он заменяется на символ указанный в edit2

[AND_REY]

Так что ли:

Код:

Var
 S: String;
 P: Boolean;
 i, j: Integer;
begin
 P:= True;
 For i:= 0 To Memo1.Lines.Count - 1 Do
  begin
   S:= Memo1.Lines.Strings[i];
   For j:= 1 To Length(S) Do
    if Edit1.Text = S[j] Then
     begin
      S[j]:= Edit2.Text[1];
      P:= False;
     end;
   Memo1.Lines.Strings[i]:= S;
  end;
 if P Then Memo1.Lines.Add(Edit1.Text);
end;

[Brons14]

да спасибо, только нужно не 1 символ а все введенное

[Brons14]

так меняются только 1 символ и если в тексте искать больше одного символа то его не находит(
чтобы менялось все нужно j: string или как?