Probléme variable et imageRésolu

Question

Débutant Delphi
Je voudrais que lorsque je clique sur le bouton suivant, mon label affiche le numéro de la photo,que mon image change aussi suivant le numero du label.
Il me dit comme erreur fichier introuvable
Problème variable surement
Por concatener vous utiliser quel opérateur (+ ou &)

Voici le code

procedure TForm1.FormActivate(Sender: TObject);
var
  x: integer;
  chemin: string;
begin
  x:=1;
  IntToStr(x);
  lblNumPhoto.Caption:='Numero'+ 'x';
  chemin := extractfilepath(Application.ExeName);
  imgEcran.Picture.LoadFromFile(chemin + '\Planches\' & 'x' &'.jpg');
end;

end.

cs_stargates · Accepted Answer

Bien vu ,j'ai  plutôt l'habitude de programmer en vb

j'ai trouvé aussi cette formule

procedure TForm1.FormActivate(Sender: TObject);

  x: integer;
  chemin: string;
begin
  x:=1;

  lblNumPhoto.Caption:='Numero'+ IntToStr(x);
  chemin := extractfilepath(Application.ExeName);
  imgEcran.Picture.LoadFromFile(chemin + '\Planches\' + IntToStr(x) + '.jpg');
end;

Merci pour l'aide

ZeWaren · Answer

On dirait une espece de traduction d'un autre language en delphi.
Si j'ai bien compri le PB, je préconiserai plutot ça : 


procedure TForm1.FormActivate(Sender: TObject);
var
  x: integer;
  xs : string;
  chemin: string;
begin
  x:=1;
  xs := IntToStr(x);
  lblNumPhoto.Caption:='Numero'+ xs;
  chemin := extractfilepath(Application.ExeName);
  imgEcran.Picture.LoadFromFile(chemin + '\Planches\'+xs+'.jpg');
end;


J'espere que ça t'aidera

Probléme variable et image

2 réponses

Votre réponse

Discussions similaires