URGENTE Y MUY IMPORTANTE
Publicado por tugatime (44 intervenciones) el 14/01/2013 15:17:20
En este programa me han dicho que no utilizara la orden ReadKey para las selecciones del usuario para no enlazar la librería crt.
Lo que quiero saber es que quieren decir con eso ??
Es que no lo entiendo muy bien.
Esto es importante y necesito una respuesta lo mas rapido posible
P.S: "Si te han dicho eso, porque no le preguntas a la persona que te lo dijo ?" Para los que piensen esto le dire que no puedo preguntarle a la persona que me lo dijo porque no tengo forma de hacerlo. Pero eso son cosas personales que no voy a estar hablando aqui.
Por favor necesito ayuda rapido.
Lo que quiero saber es que quieren decir con eso ??
Es que no lo entiendo muy bien.
Esto es importante y necesito una respuesta lo mas rapido posible
P.S: "Si te han dicho eso, porque no le preguntas a la persona que te lo dijo ?" Para los que piensen esto le dire que no puedo preguntarle a la persona que me lo dijo porque no tengo forma de hacerlo. Pero eso son cosas personales que no voy a estar hablando aqui.
Por favor necesito ayuda rapido.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
program Copia_documento_de_texto;
uses crt;
type
Tfichero= text;
var
fichero, fichero2: Tfichero;
linea, Nfichero, Nfichero2, texto: string;
begin
writeln;
writeln(' Bienvenido al programa copion.');
writeln;
writeln('El programa que lee un archivo de texto, lo copia a otro archivo y ademas añade el texto que tu quieras.');
readln;
clrscr;
write('Introduzca el nombre del archivo a leer: ');
readln(Nfichero);
writeln;
write('Introduzca el nombre del archivo donde se guardara la copia: ');
readln(Nfichero2);
writeln;
if (Nfichero<>Nfichero2) then
begin
write('Introduzca el texto que quiere añadir: ');
readln(texto);
assign(fichero, Nfichero);
assign(fichero2, Nfichero2);
{$I-}
reset(fichero);
{$I+}
if (ioResult=0) then
begin
rewrite(fichero2);
while not eof(fichero) do
begin
readln(fichero, linea);
writeln(fichero2, linea);
end;
close(fichero);
append(fichero2);
writeln(fichero2, texto);
close(fichero2);
end;
writeln;
writeln('Su archivo ha sido copiado y su texto añadido.');
end
else
writeln('Lo siento pero el nombre de los 2 archivos tiene que ser diferente.');
readln;
end.
Valora esta pregunta
0