Fórum Como verificar se minha string tem um certo caractere ? #594734

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;