Здравствуйте
. Помогите пожалуйста вот с чем
Дан исходник задачи:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 | 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? Заранее спасибо!
29.12.2011, 20:30
задача по обработке строкавых данных
Древовидный вид