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,


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.