reemplazo de caracteres de Delphi

var

sl, Lista de direcciones: TStringList;

i: entero

const

Dirección = ' /@_new/@_new.exe';

comenzar

sl:= TStringList.Create;

AddressList:= TStringList.Create;

try

sl.LoadFromFile('d:\1.txt'); //Carga tu archivo de diccionario

for i:= 0 to sl.Count - 1 do

AddressList.Add(StringReplace(Address,'@',sl.Strings[i],[rfReplaceAll]));

AddressList.SaveToFile('d:\2 .txt '); //Ubicación de almacenamiento de archivos reemplazada

finalmente

FreeAndNil(AddressList);

FreeAndNil(sl);

end;

fin;