[anubiss]

Здравствуйте. Помогите пожалуйста вот с чем
Дан исходник задачи:

Код:

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? Заранее спасибо!

[Pilot_Red]

memo2.Text:= AnsiReplaceStr(memo1.Text, 'a','a(i)');

не забудь модуль StrUtils добавить

[anubiss]

а почему когда я пробую ввести StrUtils; в Uses то у меня показывает что не инициализировано?

[NumLock]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo2.Text:=StringReplace(Memo1.Text, 'a', 'a(i)', [rfReplaceAll, rfIgnoreCase]);
end;

end.

[anubiss]

спасибо всем кто помог