problème de déclaration de mon tableauRésolu

Question

bonjour,



j'ai un petit probl&#232;me avec ma d&#233;claration de mon tableau 



    code :

   type

    // tableau de structure

    Ttabprod = record

    desi, refint: string;

    prix, qte: Integer;

    end;



    var  tabprod : array [1..200] of Ttabprod;



je ne sais pas ou le mettre car gen est besoin pour plusieur bouton et
lorsque je le met apres implementation ca ne marche pas. cela ne
fonction que si je le d&#233;clare dans la proc&#233;dure meme or je voudrai
l'utiliser dans des proc&#233;dures diff&#233;rentes.

merci de votre aide. 

>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

cs_emeraudes · Accepted Answer

merci pour ton code ca marche

g mi ds mon code la partie impl&#233;mentation mais g oublier de le mettre
dans mon message car g pris des bout de code et g pas fait attention ke
je n'avais pas pris l'implementation.



pour les d&#233;claration en local, je les fait car ds le code juste au
dessus ca y etait et donc g essayai avec mais c vrai ke si je les
red&#233;clare ca ne sert a rien . et j'avais bien cliker sur le button1
avan le button2.

en tous cas merci ca marche. 

ct juste un probl&#232;me d'emplacement.

merci de ton aide



bonne programmation et pt'etre @bientot

(g d'autre probl&#232;me en delphi, j'ai poster un mess sur delphi et base
de donn&#233;e sur "pb de TDBLookupComboBox help pleasee" si tu sais y
r&#233;pondre merci  )




>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

jinh68 · Answer

Dans ce cas c'est une variable globale donc tu le d&#233;clares dans la partie interface.

j!nH

jinh68 · Answer

Par contre fais gaffe ds ton record, il serait plus judicieux de d&#233;finir la longueur de ton string.

j!nH

cs_emeraudes · Answer

c'est a dire ke je le d&#233;clare apres implementation? car g aussi essayai et ca marche pa 

>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

jinh68 · Answer

Non avant la partie implementation , tu d&#233;finis ton type et ta variable globale.

j!nH

cs_emeraudes · Answer

je lai fait &#233;galement la mai la c pire il reconnai pa 
 


code :  var  tabprod : array [1..200] of Ttabprod;



je v r&#233;&#233;ssayai mai normalemen g d&#233;ja essayai et ca marcher pa. g essayai de le mettre un peu de partout mais nul part ca marcher


>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

jinh68 · Answer

Poste nous ton code stp... :)

j!nH

japee · Answer

Plac&#233; comme ceci sur mon Form1, &#231;a ne pose pas de probl&#232;mes :



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { D&#233;clarations priv&#233;es }

  public

    { D&#233;clarations publiques }

  end;



  Ttabprod = record

    desi, refint: string[30]; // <- d&#233;finir length !

    prix, qte: Integer;

  end;



var

  Form1: TForm1;

  var  tabprod : array [1..200] of Ttabprod;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var  tabprod : array [1..200] of Ttabprod;

begin

  with tabprod[1] do

    desi := 'Hello';

end;



end.



Jinh68 a raison, fais gaffe &#224; la d&#233;claration de tes strings dans ta
structure, t'as ach'ment int&#233;r&#234;t &#224; en d&#233;finir la longueur, surtout si
mets &#231;a dans un tableau !



Bonne prog'

cs_emeraudes · Answer

ok merci je vais essayai ce code et je vous direz si ca marche 

merci de votre aide


>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

cs_emeraudes · Answer

unit saisieCommande;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ComCtrls, DBCtrls, DB, IBCustomDataSet, IBQuery,

  Buttons, ExtCtrls, IBDatabase;



type

  Tfm_saisieCde = class(TForm)

    Label5: TLabel;

    Label1: TLabel;

    tb_cde: TEdit;

    Label2: TLabel;

    date_cde: TDateTimePicker;

    Label3: TLabel;

    tb_contact: TEdit;

    bt_valide: TButton;

    cbnom: TDBLookupComboBox;

    Label4: TLabel;

    queryfrs: TIBQuery;

    Label6: TLabel;

    memoadr: TMemo;

    Label8: TLabel;

    date_livraison: TDateTimePicker;

    cbprod: TDBLookupComboBox;

    Label7: TLabel;

    Label9: TLabel;

    tb_qte: TEdit;

    Image6: TImage;

    Image1: TImage;

    Label10: TLabel;

    bt_ok: TButton;

    dsprodfrs: TIBDataSet;

    dsoprodfrs: TDataSource;

    ibtprodfrs: TIBTransaction;

    Button1: TButton;

    Button2: TButton;

    procedure bt_valideClick(Sender: TObject);

    procedure FormPaint(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure bt_okClick(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure cbprodClick(Sender: TObject);

    procedure cbnomClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { D&#233;clarations priv&#233;es }

  public

    { D&#233;clarations publiques }

  end;



    Ttabprod = record

    desi, refint: string[100]; // <- d&#233;finir length !

    prix, qte: Integer;

    end;



  var

  fm_saisieCde: Tfm_saisieCde;

  var  tabprod : array [1..200] of Ttabprod;



procedure Tfm_saisieCde.Button1Click(Sender: TObject);

var  tabprod : array [1..200] of Ttabprod;

begin

tabprod[1].desi:='hello';

end;



procedure Tfm_saisieCde.Button2Click(Sender: TObject);

var  tabprod : array [1..200] of Ttabprod;

begin

ShowMessage(tabprod[1].desi);

end;



voila mon code. on fait je veux
faire un test. sur le button1 j'initialise mon tabprod[1] :='hello' et
sur le boutton2 je veu l'afficher mai kan je clique sur le button2 cela
m'affice 'o' avec une fenetre tres large. 

mais quand je met ca



procedure Tfm_saisieCde.Button1Click(Sender: TObject);

var  tabprod : array [1..200] of Ttabprod;

begin

tabprod[1].desi:='hello';

ShowMessage(tabprod[1].desi);

end;



procedure Tfm_saisieCde.Button2Click(Sender: TObject);

var  tabprod : array [1..200] of Ttabprod;

begin

ShowMessage(tabprod[1].desi);

end;



ben la ca m'affiche bien 'hello' sur le button1 et 'hello' sur le button2. compren pa pk ca fait ca.

vous savez vous?


>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

jinh68 · Answer

Bon , on reprend!!!!!



Premi&#232;rement,



dans ton code tu n'as pas de partie implementation.



Deuxi&#232;mement,



Dans tes &#233;v&#232;nements OnClick, ne red&#233;clare pas ton tableau en variable
locale sinon &#231;a sert &#224; rien de le d&#233;clarer en global, puisque tes
tabProd(adresses) dans tes &#233;v&#232;nements ne sont pas les m&#234;mes que ta
variable globale.

Code(j'ai uniquement d&#233;clar&#233; ton tableau et mis deux boutons):



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { D&#233;clarations priv&#233;es }

  public

    { D&#233;clarations publiques }

  end;



  Ttabprod = record

    desi, refint: string[100]; // <- d&#233;finir length !

    prix, qte: Integer;

  end;



var

  Form1: TForm1;

  tabprod: array [1..200] of TTabProd;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

tabProd[1].desi := 'hello';

ShowMessage(tabProd[1].desi);

end;



// a condition d'avoir d&#233;j&#224; cliqu&#233; sur le bouton 1 avant sinon tabProd[1] sera initialis&#233; avec n'importe quoi

// d'ou ton "o" avc des espaces

procedure TForm1.Button2Click(Sender: TObject);

begin

ShowMessage(tabProd[1].desi);

end;



end.












j!nH

jinh68 · Answer

De rien :).On va tous jeter un coup d'oeil &#224; ton autre probl&#232;me ;).

j!nH

cs_emeraudes · Answer

merci c tres gentil de m'aider



vous etes top 





>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

Problème de déclaration de mon tableau

13 réponses

Votre réponse