а как выглядит весь код программы и какие кнопки и поля делать на форме?

Мой пример это консольное приложение

а если в другом виде? То как изменится код?

Вместо WriteLn Label1.Caption - например
Вместо ReadLN Edit1.Text - например
Соотвественно заменить переменные, остальное так же

А где ошибка?

begin
Label1.Caption('Enter text');
Edit1.Text(i);
Label1.Caption('ReplaceChars');
Edit1.Text(s);
for z:=1 to Length(s) do
i:=StringReplace(i, AnsiUpperCase(s[z]), s[z], [rReplaceAll]);
label1.Caption(i);
end

begin
Label1.Caption := 'Enter text';
Edit1.Text := Str;
Label2.Caption := 'ReplaceChars';
Edit2.Text := Rep;
for i:=1 to Length(Rep) do
Str := StringReplace(Str, AnsiUpperCase(Rep[i]), Rep[i], [rReplaceAll]);
label3.Caption := Str;
end

Ошибка в строке

Str := StringReplace(Str, AnsiUpperCase(Rep[i]), Rep[i]), [rfReplaceAll]);

Весь код:


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Str : string;
Rep : string;
i : integer;
begin
Label1.Caption := 'Enter text';
Edit1.Text := Str;
Label2.Caption := 'ReplaceChars';
Edit2.Text := Rep;
for i:=1 to Length(Rep) do
Str := StringReplace(Str, AnsiUpperCase(Rep[i]), Rep[i]), [rfReplaceAll]);
label3.Caption := Str;
end;
end.

Какая ошибка?

выдает ошибку в строке

Str := StringReplace(Str, AnsiUpperCase(Rep[i]), Rep[i]), [rfReplaceAll]);

[Error] Unit1.pas(42): Not enough actual parameters

Str := StringReplace(Str, AnsiUpperCase(Rep[i]), Rep[i]), [rfReplaceAll]);

Лишняя скобка

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

Какие данные вы вводите?
в Label3 должно появиться

В edit1 ввожу например Mama Myla RaMu
в edit2 mr

Тогда все должно работать, и в Label3 должно появиться mama myla ramu

все исчезает. даже Mama Myla RaMu и mr

ступил, незаметил :)
Edit2.Text := Rep;
надо
Rep := Edit2.Text;

Edit1.Text := Str;
надо
Str := Edit1.Text;

Все работает !!!!!!
СПС