[[nightynvid]]

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    
// se puede hacer de mas formas pero para ejemplificar
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.