Ver Mensaje Individual
  #3  
Antiguo 11-01-2006
Ricardojosep Ricardojosep is offline
Miembro
 
Registrado: sep 2003
Ubicación: Sgo del estero (Argentina)
Posts: 75
Reputación: 21
Ricardojosep Va por buen camino
Aqui va algo de Read y Write...

Hola Jam888

Como Dec tiene razon, no se sabe de que Read y Write estas hablando, yo te paso un Ejemplo de una de las aplicaciones que le puedes dar.

Ejemplo:
Código Delphi [-]
var

  F1, F2: TextFile;
  Ch: Char;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
    if SaveDialog1.Execute then begin
      AssignFile(F2, SaveDialog1.Filename);
      Rewrite(F2);
      while not Eof(F1) do
      begin
        Read(F1, Ch);
        Write(F2, Ch);
      end;
      CloseFile(F2);
    end;
    CloseFile(F1);
  end;

end;

Para obtener este ejemplo solo puse la palabra Read en delphi y presione F1.
Esto es para la lectura de un archivo de texto. A Read y Write tambien lo puedes usar en una aplicacion de consola.

Te paso el Ejemplo que muestra Delphi:

Ejemplo
Código Delphi [-]
var

   s : string;
 begin
   Write('Enter a line of text: ');
   Readln(s);
   Writeln('You typed: ',s);
   Writeln('Hit  to exit');
   Readln;

 end;

Como ves aqui Write imprime una oracion (Enter a line of Text) en la Consola y ReadLn(S) Es la oracion que el Usuario Ingresa. WriteLn('You tuped: ',S) solo muestra en la Consola:

You typed: "La oracion que puso el Usuario"

Bueno, el resto es algo parecido,

Espero que te sirva.

Hasta pronto.
__________________
La amistad es la union de dos almas para formar una sola.
Responder Con Cita