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

[Serge_Bliznykov]

const a = 'AБВГабв'; 
const b = '1234567'; //Заменять на эти
var i,j, k : integer;
  txt : string;
...

                txt:=(components[i] AS TEdit).text;
		// Выполнить оепрации над текстом
                for j:=1 to Length(txt) do begin
                   k := Pos(txt[j],a);
                   if k>0 then txt[j] := b[k];
                end;
		(components[i] AS TEdit).text:=txt;

.....

[Stilet]

Я бы что-то типа такого сделал:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  { TEdit }

  TEdit=class(StdCtrls.TEdit)
    public
      procedure Reconstruct(a,b:string);
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ComponentCount-1 do
   if Components[i] is TEdit then
     TEdit(Components[i]).Reconstruct('АБВГабвг','1234567');
end;

{ TEdit }

procedure TEdit.Reconstruct(a, b: string);
var i:integer;
begin
 for i:=1 to Length(a) do
  if (i<=Length(b)) then
   Text:=StringReplace(Text,a[i],b[i],[rfReplaceAll]);
end;

end.

Это ИМХО более масштабируемо чем тупо цикл в цикле по циклу.