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

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

Curtir t�pico + 0

Responder

Post mais votado

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).

Natanael Ferreira

Responder

Gostei + 1

Mais Posts

02/05/2022

Natanael Ferreira

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;

Responder

Gostei + 1

03/05/2022

Paulo Oliveira

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.

Responder

Gostei + 0

03/05/2022

Emerson Nascimento

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.

Responder

Gostei + 0