Añadir Ruta a un archivo de texto..

[BuRtOn]

Saludos delphius, gracias por tu respuesta, si amigo trabaje la creacion de ese archivo de esa forma primitiva, por que solo pude leer esta mañana la forma de como crear archivos, y ese fue el mas sencillo, por que no me queda nada de tiempo.....Te agardecerias si tienes algun manual para manejar y crear los TiniFile o Tregisty que me dices, no se que tanto cambie el codigo a lo que yo tengo, si utilizo esa clase de archivos, no los utilice por que aun no encuentro un buen manual, y como te digo el tiempo esta en contra mia....aun asi no sabes como puedo darle la ruta a este archivo:

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);var Id: TextFile;begin //Llamando la funcion en el text del editedtId.Text:=GetVolumeID('C'); //Crear ArchivoAssignFile( Id, ExtractFilePath( Application.ExeName ) + 'Id.dos' );Rewrite(Id);Writeln(Id,edtId.Text);closeFile(Id);end;

Agardezco tu ayuda delphius.gracias...

[[Delphius]]

El único manual que tengo es el F1 y la buena cantidad de hilos que tratan el tema.
Si buscaras encontrarás. No lo tomes a mal, pero hay que perderle el miedo al F1.

Por cierto, sería bueno que edites el mensaje. No se si es mi navegador pero el último post tuyo es demasiado... horizontal y molesta la barra de desplazamiento. Muchas gracias.

Saludos,

[BuRtOn]

Oh lo olvidaba Delphius mira encontre este codigo del Selecdirectory:

Código Delphi [-]
if SelectDirectory('Seleccione la ruta de la carpeta', '', Carpeta) then
   nombrearchtxt := Carpeta +'\'+ 'TS' + fecha + StrSinEspa (hora) + '.txt';

pero que colcan el path que tu me dices en ,'', que mi indica eso ??? y pues despues que tenga la ruta seleccionada y almacenada en una variable en que parte de mi codigo, la aplico, para que me tome esa ruta ???, eso es lo que se me olvidaba preguntar....la persona que hizo este codigo declaro una variable tipo String llamada carpeta, creo que ahi es donde se alamcena la ruta y nombrearchtxt tambien es una variable de tipo string, pero nop se como combinar estos datos a mi codigo...y no se si es posible...gracias delphius...

[[Delphius]]

Empezado por BuRtOn

Oh lo olvidaba Delphius mira encontre este codigo del Selecdirectory:

Código Delphi [-]
if SelectDirectory('Seleccione la ruta de la carpeta', '', Carpeta) 
  then nombrearchtxt := Carpeta +'\'+ 'TS' + fecha + StrSinEspa (hora) + '.txt';

pero que colcan el path que tu me dices en ,'', que mi indica eso ??? y pues despues que tenga la ruta seleccionada y almacenada en una variable en que parte de mi codigo, la aplico, para que me tome esa ruta ???, eso es lo que se me olvidaba preguntar....la persona que hizo este codigo declaro una variable tipo String llamada carpeta, creo que ahi es donde se alamcena la ruta y nombrearchtxt tambien es una variable de tipo string, pero nop se como combinar estos datos a mi codigo...y no se si es posible...gracias delphius...

Al poner el segundo parámetro en vacio ('') lo que hace es que el directorio inicial sea "Mi PC".
Exacto, en Carpeta queda guardado el directorio seleccionado (si es que seleccionó, por ello la función devuelve un boolean: si seleccionó o cancelo). Y por lo que veo, en NombreArchTxt guarda el path completo (dirección y nombre de archivo) del archivo txt. El nombre del archivo por lo que se entiende está formado por TS más la fecha, hora y la extensión.

¿Como? Necesitas que te indique como debes adaptarlo? ¡Vamos hombre!
Analiza el código primero antes de estar copiando...

Saludos,

[BuRtOn]

Delphius si me guio por el codigo, por que estoy aprendiendo, y me toca probar las cosas que encuentro, y no se, pero mi fuerte no son archivos, pero aun asi los quiero manejar bien, mira ya soy capaz de elegir la ruta que deseo pero aun asi no me crea el archivo....se que no me falta mucho, pero ni idea que sea...por favor si tu o alguien me pueda hechar una manito se lo agradezco, no que me hagan el codigo, pero si que me puedan explicar que se puede hacer....miren lo que me qudo del codigo es lo siguiente:

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);
var Id: TextFile;
var carpeta :string;
begin
//Llamando la funcion en el text del edit
edtId.Text:=GetVolumeID('C');

//Crear Archivo
if SelectDirectory('D:\Nueva carpeta','D:\Nueva carpeta', carpeta) then
begin
AssignFile( Id, ExtractFilePath( Application.ExeName )+'Id.dos ');
Rewrite(Id);
Writeln(Id,edtId.Text);
closeFile(Id);
end;
end;

otra forma que trate de direccionarlo fue esta:

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);
var Id: TextFile;
begin
 
//Llamando la funcion en el text del edit
edtId.Text:=GetVolumeID('C');

//Crear Archivo
AssignFile( Id, ExtractFilePath( Application.ExeName )+'D:\Nueva carpeta\Gyros\Id.dos '); 
Rewrite(Id);
Writeln(Id,edtId.Text);
closeFile(Id);
end;

como se pueden dar cuenta trate de direccionarlo de esa forma pero tampoco pude...estoy tratando e intentado haber que me funciona...todo es de probar y mirar las cosas, les agradesco que me colaboren y a ti delphius tambien gracias, siempre me induces a leer y leer...jejeje eso es bueno.....

[marcoszorrilla]

Aquí te añado un ejemplo más, es un fragmento de código que utilizo a diario:

Código Delphi [-]
Procedure Leer_Lineas_Pedidos();
var
  F   :TextFile;
  S   :string;
  cIva:String;
begin
cNomFicLNotas:='Nol010'+Vendedor+cTipFileim;
cNomFicLNotas:=cCaminoTerminales + cNomFicLNotas;

  AssignFile(F, cNomFicLNotas);

  Reset(F);
....

Un Saludo.

[[Delphius]]

Empezado por BuRtOn

Delphius si me guio por el codigo, por que estoy aprendiendo, y me toca probar las cosas que encuentro, y no se, pero mi fuerte no son archivos, pero aun asi los quiero manejar bien, mira ya soy capaz de elegir la ruta que deseo pero aun asi no me crea el archivo....se que no me falta mucho, pero ni idea que sea...por favor si tu o alguien me pueda hechar una manito se lo agradezco, no que me hagan el codigo, pero si que me puedan explicar que se puede hacer....miren lo que me qudo del codigo es lo siguiente:

Código Delphi [-]procedure TfrmSeriales.btnIdClick(Sender: TObject); var Id: TextFile; var carpeta :string; begin //Llamando la funcion en el text del edit edtId.Text:=GetVolumeID('C'); //Crear Archivo if SelectDirectory('D:\Nueva carpeta','D:\Nueva carpeta', carpeta) then begin AssignFile( Id, ExtractFilePath( Application.ExeName )+'Id.dos '); Rewrite(Id); Writeln(Id,edtId.Text); closeFile(Id); end; end;



otra forma que trate de direccionarlo fue esta:

Código Delphi [-]procedure TfrmSeriales.btnIdClick(Sender: TObject); var Id: TextFile; begin //Llamando la funcion en el text del edit edtId.Text:=GetVolumeID('C'); //Crear Archivo AssignFile( Id, ExtractFilePath( Application.ExeName )+'D:\Nueva carpeta\Gyros\Id.dos '); Rewrite(Id); Writeln(Id,edtId.Text); closeFile(Id); end;



como se pueden dar cuenta trate de direccionarlo de esa forma pero tampoco pude...estoy tratando e intentado haber que me funciona...todo es de probar y mirar las cosas, les agradesco que me colaboren y a ti delphius tambien gracias, siempre me induces a leer y leer...jejeje eso es bueno.....

BuRtOn, Marcos te acaba de dar una buena pista.
Mi consejo respira....

Aqui otra otra pista, a ver si la descubres: ¿Y yo me pregunto, que se debe pasar al segundo parámetro del assingfile?
Vamos... piensa... ¿te parece correcto concatenar el directorio donde está el ejecutable con otro directorio? A mi eso no me cuadra... ¿porque no pruebas con uno en vez de dos?

F1 BuRtOn, ¡F1!

Saludos,

[[egostar]]

Hola

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);
var 
   Id: TextFile;
begin
   //Llamando la funcion en el text del edit
   edtId.Text:=GetVolumeID('C');
   //Crear Archivo
   AssignFile(Id,'D:\Nueva carpeta\Gyros\Id.dos'); 
   Rewrite(Id);
   Writeln(Id,edtId.Text);
   CloseFile(Id);
end;

Aunque sigo pensando que el path donde quieres crearlo no deberia ser estático, porque en este caso en específico si no tiene una partición D la maquina donde se ejecute el programa te va a dar un error.

Salud OS

[[Delphius]]

Empezado por egostar

Hola

Código Delphi [-]procedure TfrmSeriales.btnIdClick(Sender: TObject); var Id: TextFile; begin //Llamando la funcion en el text del edit edtId.Text:=GetVolumeID('C'); //Crear Archivo AssignFile(Id,'D:\Nueva carpeta\Gyros\Id.dos'); Rewrite(Id); Writeln(Id,edtId.Text); CloseFile(Id); end;


Aunque sigo pensando que el path donde quieres crearlo no deberia ser estático, porque en este casi en específico si no tiene una partición D la maquina donde se ejecute el programa te va a dar un error.

Salud OS

Ya pues... egostar te dio otra pista más. Y regaladita.

Yo opine algo diferente amigo, para mi eso de que se seleccione donde guardar la información no me parece adecuado. Si el usuario es un tanto listo se va al directorio, busca el archivo y es capaz de abrirlo con el bloc de notas.

Para mi, debe estar en un lugar oculto a la vista de los usuarios (al menos de algunos picaros). Se supone que estás guardando un dato que empleas como un medio de seguridad.
Tienes razón al afirmar de que hay que chequear por el tema de los errores, pero eso puede sanarse (en cierta medida) si empleamos algún directorio que sabemos con bastante seguridad de que estará.

Saludos,

[BuRtOn]

Delphius a cual AssignFile te refieres al de Marcos ? o al mio, por que el mio tiene los siguientes parametros:

Código Delphi [-]
AssignFile( Id, ExtractFilePath( Application.ExeName )+'Id.dos ');

La variable tipo archivo de texto, luego el extracFilepath, y a continuacion el nombre del archivo con su respectiva extension....

el de Marcos segun vi tiene los siguientes parametros:

Código Delphi [-]
AssignFile(F, cNomFicLNotas);

Tiene el archivo que es F, y una variable donde alamcena algunos datos, aunque no le entendi muy bien lo que hizo en el codigo....


y estoy buscando por parametros del AssignFile, para tratar de guiarme, y Egostar, si supongo que la forma que mostre el codigo no es la correcta, solo que estoy probando haber a cual me acerco mas a mi problema....Gracis amigos, y gracias por ayudar a este novato....