Tableau TStringGrid

Version imprimable

Tableau TStringGrid

bonjour!
j'ai construit des TStringGrid sur mon interface
Est ce que je dois les déclarer ensuite dans mes variables?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 type TForm1 = class(TForm) Tlistes: TStringGrid; Tscrutin: TStringGrid; Tresultats: TStringGrid; Listes: TLabel; Scrutin: TLabel; Resultats: TLabel; meilleur: TEdit; Label1: TLabel; calculer: TButton; quitter: TButton; Merci pour vos réponses ;)

29/11/2005, 13h37
Pedro

Salut :D
Non tes variables sont TListes,Tscrutin, etc. Tu y accèdes directement ;)
Par contre, évite les variables avec un TMachin parce que normalement, sous Delphi, un nom commençant par T est une classe...
Mais bon ça marche aussi ;)
29/11/2005, 13h46
bleetch

merci pour l'info!

une autre petite question:

qd je compile mon programme et que je rentre mes valeurs dans mes tableau puis que j'execute mon programme, un message d'erreure s'affiche:

"le projet election.exe a provoqué une classe d'exception EconvertError avec le message "n'est pas une valeur entière correcte'. Processus stoppé."

j'ai regardé dans l'aide mais je ne comprend pas
29/11/2005, 13h47
Pedro

C'est que tu as tenté de convertir une chaine vide en entier (surement avec IntToStr)... Vérifie donc avec des breakpoints les valeurs avant de convertir ;)

comment tu fais les breakpoints?

je te mets mon programme tu comprend peut etre mieux ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
var
  Form1: TForm1;
  total: integer;
  i: integer;
  j: integer;
  e: integer;
  Lemeilleur: integer;
  rangmeilleur: integer;
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.calculerClick(Sender: TObject);
begin
 
Lemeilleur := 0;
total := 0;
i := 0;
j := 0;
e := 0;
 
 
repeat
 
        for j := 0 to 2 do
 
        begin
        resultats.Cells[i,0] := resultats.Cells[i,0] + scrutin.Cells[i,j]
        end;
 
        i:= i+1;
until i <=3;
i := 0;
repeat
        for e:= 0 to 3 do
 
        begin
        total := total + (strtoint(resultats.Cells[e,0]))
        end;
        resultats.Cells[i,1] := FloatToStr(strtoint(resultats.Cells[i,0])/total*100);
        i := i+1;
                if(strtoint(resultats.Cells[i,0])> Lemeilleur)then
                begin
                meilleur.Text := resultats.Cells[i,0];
                rangmeilleur := i;
                end;
until i <=3;
meilleur.Text := listes.Cells[rangmeilleur,0];
end;
procedure TForm1.quitterClick(Sender: TObject);
begin
application.Terminate
end;
 
end.

si tu pouvais m'eclairer ca me rendrait un gd service

29/11/2005, 13h56
Pedro

La problème peut se produire à chauq efois que tu utilises StrToInt... Visiblement, si une cellule de ton TStringGird est vide et que tu essaies de convertir, tu as bien ton message d'erreur...
Pour faire un breakpoint: tu te mets sur la ligne à laquelle tu veux que le debugger s'arrête, tu cliques dans la gouttière (ou tu fais F5) et tu éxécutes... Normalement, le traitement va s'arrêter dès qu'il passe sur un breeakpoint... Enuiste c'est au choix: soit tu laisses le curseur sur une variable et le hint te donne son contenu soit tu fais des watches (Ctrl+F5) qui te permettent d'avoir une liste de variables que tu veux contrôler à ton breakpoint ;)
Si tu veux corriger tes erreurs, il t'est indispensable de maitriser ces fonctions ;) Apprend à les utiliser et tu t'en sortira plus facilement ;)
29/11/2005, 14h02
bleetch

pourtant quand je compile et que j'entre les valeurs dans les cellules elles ne devrainet donc plus etre vide
29/11/2005, 14h05
Pedro

Si tu saisis des valeurs à la main, est-ce que tu valides à chaque fois?
Essaie tout de même de contrôler avec des points d'arrêt (breakpoints) ;)
29/11/2005, 14h09
bleetch

tu dois penser que jn'y connais rien ;)
je suis en 1 ere année de bts info ds je débute
comment fais tu pour valider les saisies?
a tout hasard il n'est pas possible que je t'envoi mon programme?
29/11/2005, 14h26
Pedro

Ben tu appuies sur entrée ;)
En fait, ce qu'il y a en cours d'édition n'est pas encore intégré au tableau. Il l'est lorsque tu valides ta saisie ;)
Dans ton code, au lieu d'utiliser des repeat/until, utilise des for! c'est plus clair comme ça ;) Même si ça marche aussi mais tu utilises un for et un repeat until pour la même chose (un décompte)...
Ca ne me dérange pas que tu m'envoies ton programme mais le but de ce forum est l'entraide, donc la solution à ton problème pourrait intéresser les autres ;)
A la limite, ce que tu pourrais faire: remplacer tous tes StrToInt(Val) par des StrToIntDef(Val,0). Ce qui aura pour effet de mattre la valeur par défaut (ici 0) lorsqu'il ne peut pas convertir ;)
Mais bon pour moi le problème est simple: contrôle tes données avant de convertir pour savoir où ça plante et ce sera ok ;)
29/11/2005, 18h22
anapurna

salut

c'est un stringgrid pas un dbgrid l'enregistrement des donnée n'est pas automatique

@ Phil