|
bueno gente logre que funcione pero me quedo alguna que otra duda minima.
Antes de consultarles doy una idea mas o menos de como seria el Form, se ingresa una nueva palabra en un Tmaskedit de otro Form, que se almacena en un string y se visualiza su inicial y tantos guiones como letras resten en este formato 'L _ _ _ _ _ '. Tengo 6 Timages que voy mostrando y ocultando de acuerdo a los errores, que se contabilizan tambien en un Tedit y finalmente un boton por cada letra:
Tedit.Text:=palabra[1]; //inicial
for i:=2 to length(palabra) do
Tedit.Text:=Tedit.Text+' _ '; // resto de las letras separadas por espacio para poder contar la cant
y al ir adivinando letra a letra modifico la palabra en la posicion de la letra por un '_' y en una segunda variable string que contiene todos guiones por la o las letras adivinadas. Asi se me iria "formando" en la variable auxiliar la palabra letra a letra. Finalmente muestro la variable auxiliar con la inicial incluida en el Tedit de esta forma:
procedure actualizarletra(i:integer; letra:char);
begin
palabra[i]:='_';
palabramodificada[i]:=letra;
Tedit.Text:=palabramodificada;
end;
Al ser char, no puedo meter el espacio adelante ni atras para mantener el formato inicial y no quedar separacion entre los guiones ('L______' sin poder contar las q qdan) Se les ocurre alguna idea para lograrlo?me suena a demasiado sencillo pero no le encuentro la vuelta.
Y una ultima duda pero primordial, es como terminar el juego, (el gameover es facil, hay un limite en cantidad de errores) pero para ganarlo se me ocurre analizar la variable palabra verificando que sean todos guiones (la palabra ya se descubrio) o viceversa con la variable auxiliar, pero deberia hacerlo cada vez que clickeo una letra?
|