Marcofbb Noticias y Artículos Webmasters

procedure TForm1.Button1Click(Sender: TObject);
var
numero:Integer;    // Definimos la variable numero
begin
numero:=Random(4); // Elejimos un numero de 0 al 3
Case numero of // Segun el numero que sale mostramos X key
0: begin Edit1.Text:='KEY 1'; end; // Si sale 0
1: begin Edit1.Text:='KEY 2'; end; // Si sale 1
2: begin Edit1.Text:='KEY 3'; end; // Si sale 2
3: begin Edit1.Text:='KEY 4'; end; // Si sale 3
// Editar Key 1, Key 2, Key 3, Key 4, por los cdkey.
end
end;

procedure TForm1.Button1Click(Sender: TObject); var numero:Integer; // Definimos la variable numero begin numero:=Random(4); // Elejimos un numero de 0 al 3 Case numero of // Segun el numero que sale mostramos X key 0: begin Edit1.Text:='KEY 1'; end; // Si sale 0 1: begin Edit1.Text:='KEY 2'; end; // Si sale 1 2: begin Edit1.Text:='KEY 3'; end; // Si sale 2 3: begin Edit1.Text:='KEY 4'; end; // Si sale 3 // Editar Key 1, Key 2, Key 3, Key 4, por los cdkey. end end;