Delphi - comparar un caracter con un string

   
Vista:

comparar un caracter con un string

Publicado por gustavo (2 intervenciones) el 13/04/2014 02:08:12
hola! necesito hacer un trabajo para la universidad que es sobre el juego de el ahorcado y me eh quedado trabado en la siguiente parte, espero que alguno pueda darme una mano ya que soy nuevo en este lenguaje.
tengo un string, y tengo que verificar cuantas veces aparece la primer letra de ese mismo string repetida y mostrarla en un panel. aca les va un ejemplo:
El string es CARACOL: Y EN EL PANEL ME TIENE QUE APARECER C _ _ _ C _ _ ENTENDIENDOSE QUE LOS _ SON EL RESTO DE LOS CARACTERES.
el codigo que tengo es:
procedure TForm3.OtraPalabra1Click(Sender: TObject);
var
a,cantlet,i:integer;
let,letaux,b:string;
x:char;
begin
form4.Edit1.Text:='';
Form4.ShowModal;
letaux:='---------------';
a:=16;
cantlet:=0;
cantlet:=length(mipalabra);
a:=a-cantlet;
delete(letaux,1,a);
x:=mipalabra[1];
Panel3.Caption:=mipalabra[1]+letaux;
for i := 1 to length(mipalabra) do begin
if ( x = mipalabra[i] ) then begin
panel3.Caption:=x;
end
end;
end;

LO QUE ESTE CODIGO LO UNICO QUE HACE ES MOSTRAR SOLAMENTE LA PRIMER LETRA DEL STRING
espero su ayuda muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder