procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
label
MyLabel;
begin
Memo1.Clear;
I := 0;
MyLabel:
Inc(I);
Memo1.Lines.Add(IntToStr(I));
if I < 5 then
goto MyLabel;
end;
метка в Делфи
как в Делфи сделать метку(label),как в паскале,чтоб можно было goto юзать?
Вроде бы, предварительно нужно в заголовке реализации функции, там где перечисляются локальные переменные и константы, рядом с разделом var добавить раздел label, в котором написать имена используемых меток.
я так и делал,а он ругается:(
код приведи
Код:
Вот. Только никому не говори, кто тебе это рассказал! )
я делал так,неработало:(
var
Form1: TForm1;
status,otvet,i,total,rnd:byte;
txt_file:textfile;
temp_string,txt,path:string;
label rand;
просто я это не внутри кнопки делал,а в самом начале..
спасибо.
var
Form1: TForm1;
status,otvet,i,total,rnd:byte;
txt_file:textfile;
temp_string,txt,path:string;
label rand;
просто я это не внутри кнопки делал,а в самом начале..
спасибо.