Quiero almacenar productos en un archivo de texto pero claro si uso rewrite siempre se me borrará la información almacenada y si uso apped la primera vez me daría error porque no hay un archivo creado, me gustaría saber si puedo hacer algo así:
Código:
if <el archivo está creado> then
append(archivo)
else
rewrite(archivo);
Mi actual código:
Código Delphi
[-]procedure TForm4.Button1Click(Sender: TObject);
var
Archivo: TextFile;
begin
System.Assign(Archivo,'productos.txt');
System.Rewrite(Archivo);
System.Write(Archivo,Edit1.text);
System.Write(Archivo,Edit2.text);
System.Write(Archivo,Edit3.text);
System.Write(Archivo,Edit4.text);
System.Write(Archivo,Edit5.text);
System.Close(archivo);
MessageBox( 0, 'Producto registrado', 'Información', 0 );
end;
Saludos.