Como Hago ESTO¿?

[[nightynvid]]

mmmm no se si en este caso sea lo mejor pero para ayudarte con unos conceptos antes que sigas leyendo:

en un ciclo por ejemplo el do while que quieres utilizar a cada vuelta se le llama iteracion.

asi en un do while

Código Delphi [-]
 var
  numero : Integer;

 begin
  numero := 1;

While numero <= 100 do
  begin
   // se puede hacer de mas formas pero para ejemplificar
   num:=num+1

  end;
end;

el ciclo se ejecutara MIENTRAS que se cumpla la condicion numero <= 100

ahora te toca ver como añadir el texto al memo sabiendo como se incremento el numero en el ciclo

como te mencionaron antes hace falta que leas un poco mas, programar solo se aprende estudiando , leyendo y sobre todo practicando, si no entiendes algo haz ejemplos mas simples hasta que llegues a lo que necesitas.

[Hitman014]

se se que tengo que leer... pero tengo que entregar eso el miercoles aver como me va

[Hitman014]

Empezado por nightynvid

mmmm no se si en este caso sea lo mejor pero para ayudarte con unos conceptos antes que sigas leyendo:

en un ciclo por ejemplo el do while que quieres utilizar a cada vuelta se le llama iteracion.

asi en un do while
Código Delphi [-] var numero : Integer; begin numero := 1; While numero <= 100 do begin // se puede hacer de mas formas pero para ejemplificar
num:=num+1

end;
end;

lo puse asi como esta ahy y me marca error despues de "end"

declaration expected but end file found

[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

[[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.