IDE Window: Extract Procedure/es

From Lazarus wiki
Jump to navigationJump to search

Deutsch (de) English (en) español (es) suomi (fi) français (fr) русский (ru) slovenčina (sk) 中文(中国大陆)‎ (zh_CN)

   Resumen: "Extraer Procedimiento" toma las sentencias pascal seleccionadas y crea con ellas un nuevo procedimiento o método, situándolas en el cuerpo del mismo. Esta herramienta es útil para dividir procedimientos muy grandes, o para crear fácilmente un nuevo procedimiento a partir de algo de código.

 Ejemplo básico: <pascal> procedure HacerAlgo;

begin
  UsarHacerOtraCosa;
end;</pascal>

   Selecciona la línea "UsarHacerOtraCosa;" y utiliza Extraer Procedure de la opción Refactoring del menú contextual. Aparece un diálogo en el que se puede seleccionar el nombre y el tipo del procedimiento que se creará. En nuestro caso el resultado será este:

<pascal> procedure NuevoProcedimiento;

begin
  UsarHacerOtraCosa;
end;

procedure HacerAlgo;
begin
  NuevoProcedimiento;
end;

</pascal>

   Como se puede ver "NuevoProcedimiento" se crea con las sentencias seleccionadas dentro del su cuerpo y que la selección a sido reemplazada por una llamada a "NuevoProcedimiento".

Variables locales y parametros

   "Extraer Procedimiento" busca las variables utilizadas y automáticamente crea la lista de parámetros y las variables locales. Por ejemplo:

<pascal> procedure TForm1.HacerAlgo(var Una, Dos: integer);

var
  i: Integer; // Comentario
begin
  Una := Una + Dos;
  for i:=Una to 5 do
    begin
     |
    end;
end;</pascal>

   Selecciona el bucle for y crea, como antes, un procedimiento "NuevoProcedimiento". La variable local i se utiliza únicamente en la selección, por ello se mueve al nuevo procedimiento. La variable Una se utiliza también en el resto del código y por ello es transformada en un parámetro.

   Resultado:

<pascal> procedure NuevoProcedimiento(const Una: integer);

var
  i: Integer; // Comentario
begin
  for i:=Una to 5 do begin
  |
  end;
end;

procedure TForm1.HacerAlgo(var Una, Dos: integer);
begin
  Una :=Una + Dos;
  NuevoProcedimiento(Una);
end;</pascal>

   You can see "i" was moved to the new procedure (Note: including its comment) and Erni.

   Limitations:
   Pascal is a very powerful language, so don't expect it will work with every code. Current limits/ToDos:

  • check if selection bounds on statement bounds
  • "with" statements