Cabeceras en el código de Delphi.

[metalfox6383]

Hola:

Recuerdo que en otros lenguajes de programación se podía colocar una cabecera en medio del código, de forma que con una sentencia goto se iba hacia esa cabecera, como ejemplo:

numero=random(4)
if numero=3 then goto ETIQUETA
numero=numero*2

:ETIQUETA
return=Numero

Mi interrogante es cómo colocar esa cabecera (si así debe ser llamada) ":ETIQUETA" y qué comando se utilizaría para ir a ella.

Gracias.

[dec]

Hola,

Código Delphi [-]
procedure UnProcedimiento;

label Pepe;
label Juan;

begin

  if True then
    goto Pepe
  else
    goto Juan;

  Pepe:
  begin
    ShowMessage('¡Hola Pepe!');
    Exit;
  end;

  Juan:
  begin
    ShowMessage('¡Hola Juan!');
    Exit;
  end;

end;

PD: Pobre Juan, que nadie le saluda.

[nemesio]

Las etiquetas eran una herramienta utilizada en los lenguajes tales como Basic, Fortran, Cobol, Pascal. A mi simpre me enseñaron a no usarlas debido a que te terminan complicando el Código y la lógica de Programación y me recomendaron siempre el uso de Procedimientos y funciones.
Si quieres usar en delphi etiquetas también puedes hacerlo con Label. Entra a la ayuda de Delphi donde hay una buena explicación con ejemplos.

[metalfox6383]

¡Excelente! Bueno, en realidad, siempre que quise usar etiquetas y no sabía cómo hacerlo, salía haciendo un código con sólo bloques if. Gracias.

Saludos.