Tom's Guide > Forum > Programmation > Blem de type en delphi

Blem de type en delphi

Forum Programmation : Blem de type en delphi

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
sinim   20-05-2009 à 21:37:22

bonjour; j'ai un blem avec mon programme et ça se cloche au niveau du type des variables en réalité j

 

suis débutante en delphi ,en C ça marche trés bien mais en delphi ça se block mon programme est le suivant:

 
Code :
  1. procedure TForm1.ContoursAlogDeRobert(Sender: TObject);
  2. var
  4. gx,gy : integer;
  6. i: Integer;
  7. j: Integer;
  10.   begin
  12.     //  Gradient de Roberts
  14.     for i := 1 to image.Picture.Width do   
  15.     begin //  {
  16.           for j := 1 to image.Picture.Height do           
  17.               begin
  18.                       if(i=image.Picture.Width-1) then   
  19.                             image.Canvas.Pixels[i,j]:=0                                         
  20.               else                                             
  21.                   begin                                               
  23.                                 [i]  // derivee en x[/i]
  25.                           gx:= image.Canvas.Pixels[i,j+1]-image.Canvas.Pixels[i,j];                           
  27.                                 // derivee en y
  29.                         gy:= image.Canvas.Pixels[i+1,j]-image.Canvas.Pixels[i,j]; 
  30.                    
  32.                                 // amplitude
  34.                         if(sqrt(gx*gx+ gy*gy)>255)then  image.Canvas.Pixels[i,j]:=255                           
  36.                      
  37.                       else
  38.                    
  39.                      
  40.                               image.Canvas.Pixels[i,j]:= sqrt(gx*gx+ gy*gy);    // Mon blem est à ce niveau il ke
  42.                                 // ke j récupère la valeur de la racine  et comme le type du pixel et Tcolor et le
  43.                    
  44.                               // le résultat de la racine est extended il m'affiche une erreur comment régler ça?
  46.    
  47.                   end;         
  48.               end;
  49.              
  51.           end;
  52.   end;
  

et merci d'avance.


Message édité par SiM07 le 20-05-2009 à 22:59:51
Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > Blem de type en delphi
Aller à :

Il y a 2409 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,250 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens