Discussion :

[gadalla]

slt a tous
svp aider moi a coriger ce code
il me demande de declaré des variable deja declaré

merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 procedure som( ch:string;b1:integer; var s:integer);
    var
   c:char;
    n,i,l,p:integer;
    begin
	s:=0;p:=1;
	l := Length(Ch) ;
     for i := l  downto 1 do
     begin
	c:= upcase(ch[i]);
      if c in ['0'..'9'] then
	 begin
		n:= ord(c)-ord('0');
	end
   else
	begin
		n:= ord(c)-ord('7');
	end;
		s:= s+(n*p)  ;
		p:=p* b1;
   end;
end;
 
 
procedure divi (b2:integer; var s:integer);
var
   i,c:integer;
   ali : string;
   t:tab;
begin
   	c :=0;
repeat
   	c:=c+1;
		t[c]:= s mod b2;
		s:=s div b2;
until s = 0 ;
 
for i:= c downto 1 do
	if t[i] in [0..9] then  ali := ali + intofchar(t[i] )
   else ali := ali + intofchar(chr(ord('A')+t[i] -10))
   edit3.text := ali ;

[Clorish]

Simple suggestion : Et si tu nous designais la ligne et/ou les variable qui genere cette erreur

Ma boulle de cristale fait une surchauffe ces temps ci et je dois la laisser refroidir un peu

[Pedro]

Oui et aussi si tu pouvais nous spécifier l'erreur proprement dite parce ma boule de cristal à moi est chez le garagiste

[ShaiLeTroll]

L'identation du code est vraiement pas terrible, déjà que l'on a pas l'erreur, cela complique la lecture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

edit3.text := ali

j'aurais tendance que l'erreur est ici, tu dois faire divi comme méthode de ta form qui possède edit3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure Tform1.divi (b2:integer; var s:integer);

[SergioMaster]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure Tform1.divi (b2:integer; var s:integer);

+1 et idem pour la procedure som

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure TForm1.som( ch:string;b1:integer; var s:integer);

à moins que tout ce code soit à l'intérieur d'une autre procedure ou fonction;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i:= c downto 1 do
	if t[i] in [0..9] then  ali := ali + intofchar(t[i] )
   else ali := ali + intofchar(chr(ord('A')+t[i] -10))

de plus sur ce bout de code la variable ali n'est pas initialisée avant ce qui risque peut être de fournir un résultat différent de celui escompté, enfin peut-être est-ce normal

[CapJack]

L'identation du code est vraiement pas terrible, déjà que l'on a pas l'erreur, cela complique la lecture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

edit3.text := ali

j'aurais tendance que l'erreur est ici, tu dois faire divi comme méthode de ta form qui possède edit3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure Tform1.divi (b2:integer; var s:integer);

+1.

Ou alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form1.edit3.text := ...

Mais la méthode de SLT est meilleure : edit3 est une propriété de l'objet Form1, il n'est accessible directement que de l'intérieur de l'objet.