Como exibir uma foto a partir do que esta na edit?

Delphi

Lazarus

02/05/2022

Bom dia amigos, alguem saberia me dizer como eu faço para exibir uma foto a partir de uma parte do texto que esta na edit? tentei fazer assim: 
procedure TForm1.Edit1Change(Sender: TObject);
begin
 if edit1.Text = '*palavra*' then image1.Visible:= true else image1.Visible:= false;

mas nao deu certo :(
Paulo Oliveira

Paulo Oliveira

Curtidas 0

Melhor post

Natanael Ferreira

Natanael Ferreira

02/05/2022

Você pode usar a função Pos que identifica o índice de uma substring na string.

 if Pos('palavra', edtFornecedor.Text) > 0 then
    Image1.Visible := true
  else
    Image1.Visible := False;


No exemplo acima, vai pesquisar o termo 'palavra' (substring) na string que está no Edit1 (se for o contrário que precisa, basta inverter a ordem dos parâmetros).
GOSTEI 1

Mais Respostas

Natanael Ferreira

Natanael Ferreira

02/05/2022

Você pode usar a função Pos que identifica o índice de uma substring na string.

 if Pos('palavra', edtFornecedor.Text) > 0 then
    Image1.Visible := true
  else
    Image1.Visible := False;


No exemplo acima, vai pesquisar o termo 'palavra' (substring) na string que está no Edit1 (se for o contrário que precisa, basta inverter a ordem dos parâmetros).


Corrigindo:

 if Pos('palavra', Edit1.Text) > 0 then
    Image1.Visible := true
  else
    Image1.Visible := False;
GOSTEI 1
Paulo Oliveira

Paulo Oliveira

02/05/2022

Você pode usar a função Pos que identifica o índice de uma substring na string.

 if Pos('palavra', edtFornecedor.Text) > 0 then
    Image1.Visible := true
  else
    Image1.Visible := False;


No exemplo acima, vai pesquisar o termo 'palavra' (substring) na string que está no Edit1 (se for o contrário que precisa, basta inverter a ordem dos parâmetros).


Corrigindo:

 if Pos('palavra', Edit1.Text) > 0 then
    Image1.Visible := true
  else
    Image1.Visible := False;



amigo, funcionou para mim ate certo ponto, caso eu digite a palavra a foto realmente aparece, mas o que acontece e que eu tenho um outro form que envia um text para essa edit, e ele passa a palavra + algumas outras informacoes, tentei usar botando no comeco e no final da palavra "*", para que mesmo que tenha outras palavras junto ele reconhecesse, e nao funcionou, sera que estou alocando o codigo na procedure errada ? botei no onchange do edit.
GOSTEI 0
Emerson Nascimento

Emerson Nascimento

02/05/2022

envia um text para essa edit, e ele passa a palavra + algumas outras informacoes

dê um exemplo real de como esse edit é preenchido. daí você terá a resposta de acordo com a tua necessidade.


GOSTEI 0
POSTAR