Ir al contenido


Foto

Problema con la lectura y escrituera de text (freepascal)


  • Por favor identifícate para responder
3 respuestas en este tema

#1 gabito

gabito

    Newbie

  • Miembros
  • Pip
  • 2 mensajes

Escrito 17 octubre 2010 - 08:30

mi problema puede que a alguno le parezca elemental pero soy novato y llevo mucho rompiendome la cabeza intentando solucionarlo .
Cree un programa para practicar que simplemente copiaria una cifra de un archivo de texto a otro, bien el programa es es
program copiar (output,datossal,datosent);

var
datosent,datossa:text;
A:integer;

begin

reset(datosent);
rewrite(datossal);
read(datosent,A);
write(datossal,B);

end.
el programa compila y todo, el problema no hace nada, no copia el dato tengo tanto el ejecutable como los archivos en la carpeta C:\FPC\2.2.2\bin .En la opcion directories pestaña libreries e indicado esta ruta pero nada no hay manera el programa no hace nada de nada
  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.448 mensajes
  • LocationMéxico

Escrito 17 octubre 2010 - 08:43

Hola gabito, bienvenido a DelphiAccess

Checa ésta página para que veas como se manipulan los archivos de texto.

Salud OS


  • 0

#3 gabito

gabito

    Newbie

  • Miembros
  • Pip
  • 2 mensajes

Escrito 17 octubre 2010 - 08:59

sigo sin entenderlo,
yo e seguido paso a paso las instrucciones de mi kibro de pascal, los archivos se llaman tal como pongo en el programa y estan junto al ejecutable, ademas antes de compilar en la comfiguracions options/directories/libreries indico la ruta, porque no copi los datos de un archivo a otro?
  • 0

#4 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.448 mensajes
  • LocationMéxico

Escrito 17 octubre 2010 - 09:21

Este es el esquema genérico de lectura y escritura de archivos, verificalo contra lo que tu tienes.

1. Asignas Archivos



delphi
  1.     AssignFile(datosent, 'archivo A');
  2.     AssignFile(datossal, 'archivo B');



2. Abres archivo A



delphi
  1.       Reset(datosent);



3. Lees Archivo A (aquí es donde no entiendo muy bien algo, ¿ solo tienes un dato en el archivo A ?)



delphi
  1.       Read(datosent,A);



4. Creas el archivo B



delphi
  1.       ReWrite(datossal);



5. Escribes en el archivo B



delphi
  1.       Write(datossal,A);



6. Cierras Archivo A y Archivo B



delphi
  1.       CloseFile(datossal);
  2.       CloseFile(datosent);



Salud OS
  • 0




IP.Board spam blocked by CleanTalk.