Здравствуйте
. Помогите пожалуйста вот с чем
Дан исходник задачи:
Код:
procedure TForm2.Button1Click(Sender: TObject);
var s:string;
i,k:integer;
begin
s:=Edit1.Text;
k := 0;
For i := 1 to length(S) do
If s[i]='а' then
s[i]:='i';
Edit2.Text:=s;
end;
Админ: Пользуемся тегами для оформления кода!
Помогите сделать так, что бы в данной задаче находимую букву "а" не заменяло на букву "i", а дописывало после неё в скобках?
И ещё просьба. В данной задаче текст вводится и выводится через строки Edit1,2; как сделать так чтобы текст вводился и выводился через Memo1,2? Заранее спасибо!