Reemplazar texto en un textfile..
 

Bueno mi pregunta es la siguiente.. como hago para reemplazar una "palabra" en un textfile.
el archivo de texto lo asigne a una variable de este tipo.. no lo visualizo en ningun memo ni nada, pero quiero poder reemplazar una palabra "codigonuevo.text" en todas sus ocurrencias..

Código Delphi [-]
AssignFile (myFile, archivo);
    Rewrite (myFile);
    while not EOF (myFile) do
    begin
      ReadLn (myFile, linea);
      posicion := pos (',', Linea); //posicion del separador
          codigo := Copy (Linea, 0, posicion - 1);
          cant    := Trim (Copy (Linea, posicion + 1, length (linea)));
          if codigoerror.text=codigo then
          begin
          cad:=codigonuevo.text+','+cant;
         // Writeln(myFile,cad);
          end;
    end;
    CloseFile(myFile);

codigoerror es un edit con la palabra a reemplazar con codigonuevo.text..
se puede hacer algo asi? asi como lo tengo, pasa que el archivo se vacia..
a ver si me di a entender, por cierto uso delphi 2007.. gracias por adelantado.

o no se puede hacer directamente?... y tengo q vaciarlo en un memo o una lista, y entonces buscar y reemplazar?

Lo que yo haría es cargar el archivo en un Memo, cambiar las palabras que deseo con la función StringReplace() y guardar los cambios al archivo (sobreescribiendolo).

Salud OS

gracias...
tenia esa idea pero queria saber si se puede hacer directamente, pues entonces asi le hare..

Bueno, de poder se puede pero para que tanto code si con tres lineas lo haces sin problema :)

Salud OS

Holas, en vez de vaciarlo a un memo, creo que sería mejor que lo cargaras a un StringList y para reemplazar también utilizas la función StringReplace.

Saluditos