Guardar Datos en TXT

[kael]

Bueno , soy bien nuevo en esto de delphi y la verdad me e basado en manuales y cosas para hacer "algo" ... mi problema es que quiero insertar datos en un archivo txt sin que sobreescriba lo ya escrito :

procedure Insertar_Datos();
Var
txt : TextFile;
sexo : string;
begin
sexo := IntToStr(frmMain.ComboBox19.ItemIndex);
if not FileExists(AppPath + 'datos.txt') then begin
AssignFile(txt, AppPath + 'datos.txt');
Rewrite(txt);
Writeln(txt, ''+frmMain.Edit5.Text+','+frmMain.Edit7.Text+','+sexo+','+frmMain.Edit8.Text+',0,,,,,,,,,');
CloseFile(txt);
end
else begin
AssignFile(txt, AppPath + 'datos.txt');
rewrite(txt);
Write(txt, ''+frmMain.Edit5.Text+','+frmMain.Edit7.Text+','+sexo+','+frmMain.Edit8.Text+',0,,,,,,,,,');
CloseFile(txt);
end;
end;

esto es lo que yo tengo , lo que me puse a pensar q podria ser es el rewrite pero el problema que si yo saco esa linea el programa se recarga y no escribe la linea.

eso daria lugar a algo asi :

nombre,pass,sexo,mail,0,,,,,,,,,

cuando se ejecuta ese codigo inserta la linea y si no existe crea el archivo , pero el problema que cuando vuelves a insertar otro registro sobreescribe el ya escrito

Si me pueden sacar la duda les agradeceria mucho

Saludos

[DarKraZY]

si pulsas F1 sobre el comando "Rewrite" en Delphi, obtendrás una valiosa ayuda. Y si después pulsas "See also" descubrirás lo que buscas.

[Mario1980]

En primer lugar veo que repetis codigo, no se para que pero eso no es lo que queres, creo que podrias cargar lo que tenes en el txt a un memo sumarle la fila que queres agregar y eso cargarlo en el txt.
Dejame ver una solucion mejor y te la paso.
Saludos.

[kael]

Empezado por Mario1980

En primer lugar veo que repetis codigo, no se para que pero eso no es lo que queres, creo que podrias cargar lo que tenes en el txt a un memo sumarle la fila que queres agregar y eso cargarlo en el txt.
Dejame ver una solucion mejor y te la paso.
Saludos.

Ok , esperare , y ya de paso digo que lo que me gustaria seria que salieran los resultados de esta forma :

nombre,pass,sexo,mail,0,,,,,,,,,
nombre2,pass,sexo,mail,0,,,,,,,,,
nombre3,pass,sexo,mail,0,,,,,,,,,

Gracias y Saludos

[Neftali [Germán.Estévez]]

Empezado por kael

...y ya de paso digo que lo que me gustaria seria que salieran los resultados de esta forma :

nombre,pass,sexo,mail,0,,,,,,,,,
nombre2,pass,sexo,mail,0,,,,,,,,,
nombre3,pass,sexo,mail,0,,,,,,,,,

Yo en éstos casos lo que hago es trabajar sobre un TStrings (TMemo si lo quieres en visual) que es más sencillo (básicamente método Add) y una vez terminado realizar un SaveToFile del TStrings.

NOTA: Si tienes problemas con el tamaño del ficheros (en W9x la limitación de TMemo es de 64K) puedes utilizar un RichEdit con formato plano.

[Mario1980]

Lo que te queria explicar en un principio era lo que dijo neftati.