problem z label / etykiety

0

mam taki kod ktorego nie moge skompilowac dlaczego ?

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
label
etykieta;

goto etykieta;

end;

nie dziala

1

Wyrzuć to "nie dziala" na końcu i może zadziała :P
EDIT:
Niech Ci będzie. Label powinno być przed begin. W kodzie ponadto musisz umieścić tą etykietę "etykieta:" tak chyba było.

PS. Nie używaj label ani goto
PS2. Pisz jaśniej posty, bo to co naskrobałeś to tylko na drwiny zasługuje

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0