SoloCodigo
Programación General => Pascal => Mensaje iniciado por: figox en Martes 4 de Septiembre de 2007, 04:48
-
he visto algo de memoria dinamica, muy poco, pero desearia saber como realizar un programa, que de un archivo creado en bloc de notas, pasarlo a espacio de memoria y de ahi aun archivo nuevo, esto en pascal.
cualquier ayuda se les agradece de antemeno
-
Para que sistema operativo? Windows, DOS...?
-
en windows, uso pascal 70, y ya encontre algo de abrir el archivo de bloc de notas en el pascal y leerlo pero no he podido pasarlo al espacio de memoria
se les agradece cualquier ayuda
-
Tendrás que leer algo sobre punteros y memoria dinámica para DOS:
http://www.infor.uva.es/~jvalvarez/docencia/tema2.pdf (http://www.infor.uva.es/~jvalvarez/docencia/tema2.pdf)
-
ya lo cheque ya respondio algo mis dudas
encontre la funcion assigned para meter datos del texto a memoria esto mas omenos era
var
P:Pointer;
begin
P:nil;
if assigned(P)then
writeln('lo que sea');
P:=@P;
if assigned (P)then
writeln('lo que sea dos');
end.
espero que esto le sirva a alguien mas
se te agradece por lo anterior
-
Function Assigned (Var P) : Bolean;
Determina si un puntero o variable de tipo procedimiento es nil. Especifica si el argumento es nil o e el argumento tiene un valor.
Encontré el enlace que buscaba!!!!
este es, te va servir un monton.
http://ar.geocities.com/nrs_arg/pascalmania/t_varptr.htm (http://ar.geocities.com/nrs_arg/pascalmania/t_varptr.htm)
-
casi he completado el programa, si lo termino se los dare con todo gusto
y gracias por los apoyos
-
este es el programa, hasta hay se los dejo solo le falta el copiar el archivo y paserlo al nuevo.
program Leertexto;
uses
crt;
var
fichero :text;
caracter :char;
begin
Assign(fichero,'c:\code.dat');
Reset(fichero);
clrscr;
while not eof(fichero) do
begin
while not eoln(fichero) do
begin
Read(fichero, caracter);
Write(caracter)
end;
writeln;
Readln(fichero)
end;
close(fichero)
end.