lazarus (Resolvido) Carregar junto com imagens aleatorias textos correspondentes destas imagens

[Visitante]

 

Boa Noite quando se clica no buton1 o programa carrega de forma aleatória uma imagem entre muitas de uma pasta, nesta pasta terá vários documentos de textos (bloco de notas) um para cada imagem fazendo a sua descrição.

 

É possivel carregar a imagem de forma aleatória junto com o seu texto correspondente no MEMO ao mesmo tempo.

Obrigado

Estou usando o este código no programa Lazarus

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, math;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
//Não esqueçer de insirir Math no Uses  se não dará erro e não funcionará
   var

     i : Integer;
     begin
       i := RandomRange(1,5);  
       Case i of
         2: Image1.Picture.LoadFromFile('flores\02.jpg');
         3: Image1.Picture.LoadFromFile('flores\03.jpg') ;
         4: Image1.Picture.LoadFromFile('flores\04.jpg') ;
         
       end;

     end;

end.

[Jhonas]

É possivel carregar a imagem de forma aleatória junto com o seu texto correspondente no MEMO ao mesmo tempo.

isso é uma pergunta ou uma afirmação ?

se é uma pergunta ... sim é possivel.  basta voce colocar no case o texto correspondente a imagem

       i := RandomRange(1,5);  
       Case i of
         2: begin
              Image1.Picture.LoadFromFile('flores\02.jpg');
              Memo1.Lines.Text := ///  Texto que voce atribuir a essa imagem 
            end;  
         3: begin
              Image1.Picture.LoadFromFile('flores\03.jpg') ;
              Memo1.Lines.Text := ///  Texto que voce atribuir a essa imagem  
            end;
         4: begin
              Image1.Picture.LoadFromFile('flores\04.jpg') ;
              Memo1.Lines.Text := ///  Texto que voce atribuir a essa imagem  
            end;
         
       end; 

abraço

[Visitante]

Jhonas valeu mesmo ficou muito bom, era uma pergunta sim que tinha feito, foi mal esqueçi o sinal '?' rrr

Coloquei um button com o comando Clear como você tinha explicado do código outro programa para limpar o memo1 e ficou muito bom neste.

Tem como limpar a Imagem com mesmo button também, para não apareçer nehuma imagem apenas quando clicar neste.  Como se fosse para reniciar de novo, com tudo limpo texto e imagem?

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Clear;
(IMAGEM LIMPAR)
end;    

(O outro programa que você me ajudou ficou excelente e vai quase um ano ainda para terminar os textos dele é muita coisa, valeu mesmo)

Obrigado Jhonas outra vez e tenha um bom dia .

Como daquele programa que você me ajudou

[Jhonas]

 

Tem como limpar a Imagem com mesmo button também  ?

sim...

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Clear;
  //(IMAGEM LIMPAR)
  Image1.Picture.Bitmap.FreeImage;
end;     

abraço

 

[Visitante]

Jhonas boa noite  ficou muito bom, obrigado

Tem como copiar estas imagens  .jpg ou outra extensão para dentro do programa como código fonte das imagens, assim eu não precisaria de imagens externas depois de copilado o programa?

 

abraço

[Jhonas]

sim... voce deve usar o arquivo de recurso do delphi ( .RES )

voce vai guardar nele as suas imagens e depois voce vai poder extrai-las desse arquivo e usar no seu programa

OBS: se forem muitas imagens, não aconselho a usar esse recurso, pois deixaria o seu executavel muito grande

de qualquer forma, vou te passar varios links onde poderá pesquisar e decidir qual a melhor forma para isso.  ( Talvez seja melhor usar DLLs  para guardar as imagens )

exemplos:

https://www.devmedia.com.br/forum/armazenar-imagens-em-dll/173725

https://forum.baboo.com.br/index.php?/topic/685291-gravar-imagens-num-dll-e-exibi-las-projeto-delphi/

https://www.google.com.br/search?source=hp&ei=LUmPWvvLEIiHwgS374WAAw&q=guardar+imagens+no+arquivo+de+recursos+delphi&o que=guardar+imagens+no+arquivo+de+recursos+delphi&gs_l=psy-ab.3...2447.15020.0.15403.45.45.0.0.0.0.243.5008.2j35j3.40.0....0...1.1.64.psy-ab..5.35.4296...0j0i131k1j0i10k1j0i22i30k1j0i22i10i30k1j33i22i29i30k1j33i160k1.0.Vfq_C2KgRi8

abraço

 

[Visitante]

Jhonas obrigado

Neste programa serão 22 imagens, serão  outras e menores tudo de um tamanho padrão, para o programa não ficar pesado.

Vou  estudar os conteúdo dos links que você me passou e te agradeço

 

abraço