Como verificar se minha string tem um certo caractere ?
Bom dia, alguém sabe como eu faço para verificar se minha string tem um certo caractere ? no meu caso uma virgula !
Desde já agradeço !
Desde já agradeço !
Rodrigo Oliveira
Curtidas 0
Melhor post
Tiago
06/06/2018
IF POS(CARACTERE, SUASTRING) > 0 THEN
BEGIN
END;
BEGIN
END;
GOSTEI 2
Mais Respostas
Raimundo Pereira
06/06/2018
Veja um exemplo.
procedure TForm1.Button1Click(Sender: TObject);
begin
if Verificar_Caractere(Edit1.Text,',') = true then
begin
ShowMessage('Existe ,');
end
else
begin
ShowMessage('Não existe ,');
end;
end;
function TForm1.Verificar_Caractere(Origem, Caractere: string): boolean;
begin
if (Origem.IndexOf(Caractere) >= 0) then
begin
Result:=true;
end
else
begin
Result:=false;
end;
end;GOSTEI 0