Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   funcion para leer archivo (https://www.clubdelphi.com/foros/showthread.php?t=55784)

jw4v32 26-04-2008 00:47:40

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:)

MaMu 26-04-2008 01:13:53

Cita:

Empezado por jw4v32 (Mensaje 282734)
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.


La franja horaria es GMT +2. Ahora son las 04:08:57.

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