Cita:
Empezado por Robert01
En el ejemplo que te dieron podrías cambiar algo:
Código Delphi [-]var num : Integer;
begin
num := 1;
While num <= 100 do begin
num:=num+1;
end;
end;
Si no declaras la variable num te va a dar un error.
Salu2
|
cierto me equivoque al poner num si ya habia declarado numero perdon
para no fallar aqui va el codigo completo compilado en turbo delphi
creamos un nuevo proyecto para vcl forms
añadimos un boton
y asi se veria el procedimiento para el evento click del boton
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
numero:Integer;
begin
numero:=0;
while numero<100 do
begin
numero:=numero+1;
end;
Application.MessageBox(PChar(IntToStr(numero)),PChar('Ejemplo'));
end;
end.