podrias poner un ejemplo,
la verdad ya intente meter todos los caracter que quiero reemplazar en una base pero no puedo solucionarlo
hice lo siguiente;
Código Delphi
[-]
procedure TForm1.btn2Click(Sender: TObject);
var
i : integer;
a: Integer;
archivo : TStringList;
Data : TDataSet;
cadena:String;
letra: String;
reemplaza: string;
begin
Archivo:=TStringList.Create;
Data:=DBGRID1.DataSource.DataSet;
Data.First;
letra:='';
while not(Data.eof) do
begin
cadena:='';
for i := 0 to dbgrid1.Columns.Count-1 do
begin
cadena:=cadena +(Data.FieldByName(DBGrid1.Columns[i].FieldName).asString+'|');
end;
archivo.Add(cadena);
data.Next;
end;
Q_carac.Open;
while Q_carac.Eof do
begin
letra:=(Q_carac.fieldByname('caracter').AsString); cadena:=StringReplace(cadena,letra,'',[rfReplaceAll]); end;
if FileExists('Test.txt') then DeleteFile('Test.txt');
archivo.SaveToFile('Test.txt') ;
end;
alguna idea