FORUM MP | Pascal : expliquation

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

expliquation
	Forum : PASCAL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ PASCAL
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGES : [1] [2]

FORUM PASCAL
	Page précedente	Page suivante

bobinoh
Nouveau membre

Inscrit : 06/01/2007
Messages : 1

#120126 Posté le 06/01/07 à 11:31

qui pourai m'axpliqué a koi sert les truc en gra

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Button1: TButton; Label3: TLabel; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var d : integer; g : integer; j : integer; f : string; begin if edit1.Text <> '' then begin if edit2.Text <> '' then begin g := strtoint(edit1.Text); d := strtoint(edit2.Text); j := g+d; f := inttostr(j); Label2.Caption := f; end else begin Label2.Caption := 'Vous n''avez rien marquer dans la deuxieme case'; end; end else begin Label2.Caption := 'Vous n''avez rien marquer dans la premiere case'; end; end; end.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

Molo
Membre du club

Inscrit : 21/12/2005
Messages : 367

#120136 Posté le 06/01/07 à 12:38

Salut,

Je ne te dirais pas d'aller revoir tes cours, je crois que tu le saurais.

Ce que tu demandes à savoir est vraiment le début du début, en pascal(comme en C), il faut déclarer ces variables au début de la procedure ou de la fonction:

procedure mol(); var {Déclaration de variable} d: Integer; //Déclaration d'un entier d c,g: Integer; //Déclaration de trois entiers c et g f: String; begin //... g := strtoint(edit1.Text); //convertit le texte contenu dans la zone de texte edit1 en entier(lol, je trouve que c'est assez explicite non: STRing TO INTeger f := inttostr(j); //bah l'inverse, INTeger TO STRing end;

__________________________
L'une des fonctions principales d'un ami consiste à subir, sous une forme plus douce et symbolique, les châtiments que nous désirerions, sans le pouvoir, infliger à nos ennemis.
Aldous Huxley
Le meilleur des mondes

HAUT DE PAGE

Blademan1
Membre régulier

Inscrit : 02/09/2006
Messages : 86

#120261 Posté le 07/01/07 à 14:37

Bon en fait le probleme de bobinoh, c'est que je lui ai passer la source d'un tout petit programme sur delphi 7 et qui marche... Quand il la essayer sur la version delphi 6 sa ne marchait pas ! c la dedans que sa bugg :

procedure TForm1.Button1Click(Sender: TObject);
var d : integer;
g : integer;
j : integer;
f : string;
begin
if edit1.Text <> '' then
begin
if edit2.Text <> '' then
begin
g := strtoint(edit1.Text);
d := strtoint(edit2.Text);
j := g+d;
f := inttostr(j);
Label2.Caption := f;
end
else
begin
Label2.Caption := 'Vous n''avez rien marquer dans la deuxieme case';
end;
end
else
begin
Label2.Caption := 'Vous n''avez rien marquer dans la premiere case';
end;
end;

voila on attend votre reponse avec impatience...
@+
__________________________
Blademan1

HAUT DE PAGE

Dr_T
Membre MP

Inscrit : 13/02/2005
Messages : 224

#120267 Posté le 07/01/07 à 14:57

Je ne vois rien d'horrible dans le code... Vérifie que les composants associés portent les mêmes noms, juste comme ca, et que les procédures soient déclarées...
__________________________

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#120383 Posté le 08/01/07 à 22:35

Idem que Dr_T, aucun soucis dans le code.
Pour trouver d'où vient le problème, il faut nous donner plus d'information.
Est-ce que la Form1 s'ouvre dans le Designer ?
Quel est le message d'erreur à la compilation ?

PS : Salut Dr_T, content de te revoir parmi nous. Smiley

__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

Blademan1
Membre régulier

Inscrit : 02/09/2006
Messages : 86

#120434 Posté le 09/01/07 à 12:13

Le prob c'est que nous n'en savont pas plus le message d'erreur est :ERREUR fatale : impossible de compiler!
Il n'y a aucune explication suplémentaire surtout que sur mon ordi sa marche (je lui ai apres dit ce qu'il fallait écrire)...
Le seul prob que je peu voir ce serai que la version n'est pa bonne ou même quel n'est pas valider du code-CD qu'il demande au debut.
Esque les version crakés ne marche pa ?
__________________________
Blademan1

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#120435 Posté le 09/01/07 à 12:17

Blademan1 dit :
Esque les version crakés ne marche pa ?

Aucune idée.

Idée 1 : ne pas utiliser une version craquée mais utiliser Turbo Dephi Explorer qui est gratuit et full fonctionnel.

Idée 2 : vu que le programme n'est pas très compliqué, qu'il recrée un projet vierge, rajoute une Form1, un Button1, puis qu'il copie/colle le code dans le OnClick du Button1.

Idée 3 : Essayer un simple ShowMessage( 'Hello World' ); dans un bouton pour voir si c'est Delphi qui refuse de tout compiler ou pas.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

Molo
Membre du club

Inscrit : 21/12/2005
Messages : 367

#120438 Posté le 09/01/07 à 12:23

Salut,

, je comprends rien de quoi parlez vous??
Au départ bobinoh a tout simplement demandé ce que signifie ce l'avait mis en gras?

Blademan1 dit :
Esque les version crakés ne marche pa ?

, si à merveille même, ça dépend encore d'où tu te l'es procuré Smiley

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#120449 Posté le 09/01/07 à 13:41

Molo dit :
Au départ bobinoh a tout simplement demandé ce que signifie ce l'avait mis en gras?

Salut, sauf que ce qui est mis en gras n'est pas mis par bobinoh mais par la colorisation syntaxique utilisée pour enjoliver le code.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

Molo
Membre du club

Inscrit : 21/12/2005
Messages : 367

#120453 Posté le 09/01/07 à 14:29

pac dit :

Mol dit :
Au départ bobinoh a tout simplement demandé ce que signifie ce l'avait mis en gras?

Salut, sauf que ce qui est mis en gras n'est pas mis par bobinoh mais par la colorisation syntaxique utilisée pour enjoliver le code.

, Mais je t'assure qu'au début j'avais bien vu que seuls ceci étaient en gras:
var
d:integer
//...
strtoint...
inttostr...

Et puis zut, bobinoh n'oublie pas de mettre résolu si tu sens que ton problème l'est.
__________________________
L'une des fonctions principales d'un ami consiste à subir, sous une forme plus douce et symbolique, les châtiments que nous désirerions, sans le pouvoir, infliger à nos ennemis.
Aldous Huxley
Le meilleur des mondes

HAUT DE PAGE


	Page précédente	Page suivante
FORUM PASCAL

PAGES : [1] [2]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.