Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-04-2008
jw4v32 jw4v32 is offline
Registrado
 
Registrado: feb 2008
Posts: 8
Poder: 0
jw4v32 Va por buen camino
funcion para leer archivo

Código:
function ReadFile(Path: String): STRING; 
 var 
  myFile : TextFile; 
  text   : string; 
begin 
  AssignFile(myFile, Path); 
  Reset(myFile); 
  while not Eof(myFile) do 
  begin 
    ReadLn(myFile, text); 
Result:= Result + text; 
  end; 
  CloseFile(myFile); 
end;
hola tengo una duda sobre esta funcion no me queda claro la parte esa de
Result:= Result + text; se que result es lo mismo que poner el nombre de la funcion pero no enitendo por que neserario volver a nombrarla.

ya que si hago asi:

Código Delphi [-]Result:= text;


no funciona


alguna sugerencia
Responder Con Cita
  #2  
Antiguo 26-04-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Poder: 18
MaMu Va por buen camino
Cita:
Empezado por jw4v32 Ver Mensaje
Código:
function ReadFile(Path: String): STRING; 
 var 
  myFile : TextFile; 
  text   : string; 
begin 
  AssignFile(myFile, Path); 
  Reset(myFile); 
  while not Eof(myFile) do 
  begin 
    ReadLn(myFile, text); 
Result:= Result + text; 
  end; 
  CloseFile(myFile); 
end;
hola tengo una duda sobre esta funcion no me queda claro la parte esa de
Result:= Result + text; se que result es lo mismo que poner el nombre de la funcion pero no enitendo por que neserario volver a nombrarla.

ya que si hago asi:

Código Delphi [-]Result:= text;


no funciona


alguna sugerencia
Porque esta funcionando como ACUMULADOR, si te fijas, el result esta dentro de un bucle, y el texo, no es nada mas ni mada menos que el conjunto de lineas acumuladas.

Saldos.
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Leer Archivo txt Yssik OOP 5 26-01-2007 16:12:15
Leer un Archivo newdelphi7 Varios 4 12-12-2006 14:54:33
Leer un archivo (rss)xml en c++ Maximiliano C++ Builder 1 14-07-2006 23:49:23
Funcion para encontrar un archivo. zugazua2001 Varios 1 04-08-2005 20:59:38
leer de un archivo javikanin Varios 3 23-11-2004 20:34:32


La franja horaria es GMT +2. Ahora son las 16:19:47.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi