Gracias a la ayuda, este es el código de mi Form1, en el Form2 está todo lo referente a cargar palabras a la BD, y en el Form3 todo lo referente al programa donde pongo el agradecimiento al foro y a Casimiro Notevi muchas gracias...
Código Delphi
[-]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, StdCtrls, Mask, Buttons, DB, DBTables;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
A1: TMenuItem;
Salir1: TMenuItem;
NuevoJuego1: TMenuItem;
Editarpalabras1: TMenuItem;
Acercade1: TMenuItem;
Panel1: TPanel;
Image1: TImage;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DataSource1: TDataSource;
Query1: TQuery;
Edit3: TEdit;
procedure Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Salir1Click(Sender: TObject);
procedure Editarpalabras1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Acercade1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
a:string;
remp,aux,error:Integer;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
ter,car,enc:String;
i,cont,intentos:Integer;
begin
remp:=0;
Edit2.Text:=Edit2.Text+Edit1.Text;
car:=Edit1.Text;
Edit1.Text:='';
enc:=Edit3.Text;
ter:=Edit2.Text;
cont:=length(enc);
for i:=1 to cont do
begin
if car[1]=a[i] then
begin
enc[i]:=car[1];
remp:=remp+1
end;
end;
Edit3.Text:=enc;
if remp=0 then
begin
error:=error+1;
Image1.Picture.LoadFromFile('c:\ahorcado\pic\ahor'+IntToStr(error)+'.bmp');
end;
if error=6 then
begin
EditarPalabras1.Enabled:=True;
SpeedButton2.Enabled:=True;
Edit1.Enabled:=False;
Application.MessageBox('Perdiste...que pena','Partida Perdida');
Edit3.Text:=a;
end;
intentos:=length(Edit2.Text);
if a=enc then
begin
EditarPalabras1.Enabled:=True;
SpeedButton2.Enabled:=True;
Edit1.Enabled:=False;
Application.MessageBox('¡¡Ganaste!! Felicitaciones','Partida Ganada');
end;
end;
procedure TForm1.Salir1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Editarpalabras1Click(Sender: TObject);
begin
Form2.Showmodal;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
enc: string;
i,car,pos,long: integer;
begin
aux:=0;
error:=0;
remp:=0;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT COUNT(*)');
Query1.SQL.Add('FROM palabras.db');
Query1.Active:=True;
pos:=Query1.Fields[0].AsInteger;
Query1.Active:=False;
Randomize;
car:=1+random(pos);
car:=round(car);
Edit2.Text:='';
Edit3.Text:='';
EditarPalabras1.Enabled:=False;
SpeedButton2.Enabled:=False;
Edit1.Enabled:=True;
Image1.Picture.LoadFromFile('c:\ahorcado\pic\ahor0.bmp');
Query1.SQL.Clear;
Query1.SQL.Add('SELECT termino');
Query1.SQL.Add('FROM palabras.db');
Query1.SQL.Add('Where cod='+inttostr(car));
Query1.Active:=True;
a:=Query1.FieldValues['termino'];
Query1.Active:=False;
long:=Length(a);
for i:=1 to long do
begin
enc:=enc+'-';
end;
Edit3.Text:=enc;
end;
procedure TForm1.Acercade1Click(Sender: TObject);
begin
Form3.ShowModal;
end;
end.