Delphi - Problema en comparacion de caracteres
Aquí les dejo el código:
(es una función que a partir de un char que ingresa como parámetro, busca ese carácter en un string global y devuelve verdadero si existe en ese string)
Código PHP:
function repetida(letra:char):boolean;
var
i:integer;
begin
i:=0;
repetida:=false;
while(palabra2[i]<>'*')do begin
if (palabra2[i]=letra) then repetida:=true;
i:=i+1;
end;
end;
Gracias de antemano!
PD: en el while va hasta un asterisco, eso marca el final del string.
Modo lineal
