Поиск и замена символов - Delphi

[S_007]

Есть восемь Edit в которых записан текст. Как по нажатии кнопки искать во всех едитах нужный символ и заменить его в цикле на другой, указанный в константе? Желательно с проверкой - если в едите текст есть то - искать и заменять, а если нет то не тратить время
Не хватает извилистости мозгов, помогите пожалуйста!

procedure TForm1.Button1Click(Sender: TObject);
var
s: array of String;
i:Integer;
const a = ['A','Б','В','Г','а','б','в']; //Эти надо искать
const b = ['1','2','3','4','5','6','7']; //Заменять на эти
begin
    s[0] := Edit1.Text;
    s[1] := Edit2.Text;
    s[2] := Edit3.Text;
    s[3] := Edit4.Text;
    s[4] := Edit5.Text;
    s[5] := Edit6.Text;
    s[6] := Edit7.Text;
    s[7] := Edit8.Text;

    for i := 0 to 7 do
    begin
       .........
       .........
    end;
end;

S_007, на форуме не первый день, пора бы уже научиться пользоваться кнопкой # для выделения кода

Исправлюсь...

[Аватар]

По каждому эдиту цикл по количеству заменяемых символов и StringReplace

[S_007]

Сообщение от Аватар

По каждому эдиту цикл по количеству заменяемых символов и StringReplace

а примерчик кода можете написать? Если не трудно, буду очень благодарен

Аватар, Спасибо за наводку - StringReplace! Но нельзя ли сделать чтоб цикл был для всех едитов?

[Вадим Мошев]

Цикл для всех эдитов?

for i:=0 to components.count - 1 do begin
	if (components[i] IS TEdit) then begin
		txt:=(components[i] AS TEdit).text;
		// Выполнить оепрации над тектом
		(components[i] AS TEdit).text:=txt;
		
	end;
end;

[S_007]

Вадим Мошев, Спасибо! Но не понял как связать с моим кодом Ваш пример с заменой?

[Serge_Bliznykov]

Сообщение от S_007

Вадим Мошев, Спасибо! Но не понял как связать с моим кодом Ваш пример с заменой?

это код перебора ВСЕХ TEdit на форме.
нужно этот код разместить на обработчике вашей кнопке (Button1Click).

если бы Вы написали код, который заменяет символы в Edit1, то я бы показал, как это сделать для ВСЕХ Edit'ов, имеющихся на форме!

[Вадим Мошев]

Сообщение от S_007

Вадим Мошев, Спасибо! Но не понял как связать с моим кодом Ваш пример с заменой?

Наверное, так можно:

procedure TForm1.Button1Click(Sender: TObject);
var
txt: String;
i:Integer;
const a = ['A','Б','В','Г','а','б','в']; //Эти надо искать
const b = ['1','2','3','4','5','6','7']; //Заменять на эти
begin
    for i:=0 to components.count - 1 do begin // не с 1, а с нуля, я ранее ошибся!
	if (components[i] IS TEdit) then begin
		txt:=(components[i] AS TEdit).text;
		// Выполнить оепрации над тектом - код обработки сами напишите
		(components[i] AS TEdit).text:=txt;
		
	end;
end;
end;

[S_007]

Вадим Мошев, Вы меня простите, цикл для всех Едитов я понял, Спасибо Вам!, очень грамотно... Но а код обработки (поиска, замены) то какой?

[Вадим Мошев]

внутри внешнего цикла запустите внутренний цикл for j:=1 to 7
в котором пишите

 txt:= StringReplace(txt, c[j]', intToStr(j),
                          [rfReplaceAll, rfIgnoreCase]);

где C - у вас будет массивом:
c[1] = 'А'
c[1] = 'Б'
c[1] = 'В'
и так далее

[S_007]

Благодарю Сердечно! Счас буду пробовать....