Discussion :

[laymos]

j'ai téléchargé un cours delphi7 et j'ai commencé à pratiquer ce qui est écrit mais toujours je me trouve dans des erreurs que je ne peux pas contourner : comme par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click (Sender: TObject);
var i: integer;
var s: string;
begin
    for i:=1 to 5 do
    begin
        s:=IntTostr(i);
        ShowMessage('Message n°'  + s);
    end;
end;

2 erreurs où sont-elles ? et merci de votre aide

[dragonno]

Bonjour, je veux pas t’embêter, mais:

1) "Bonjour" ça fait pas de mal, c'est ton premier message sur le forum...

2) Met ton code entre les balises "code" que tu trouves sur le menu de l'édition, au-dessus du champ de saisie, et que tu vois quand tu écris ton message sur le forum.

Je t'aide pas pour ton problème, je te renvoie plutôt à ça :

http://www.developpez.net/forums/d38...vos-problemes/

[tourlourou]

Bienvenue,

Il est effectivement précieux de renseigner la nature des erreurs, poster au bon endroit, et utiliser les balises CODE (#).

Je ne vois qu'une remarque : pas besoin de répéter le mot-clef var, et pas d'erreur dans ce code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click (Sender: TObject);
var
  i: integer;
  s: string;
begin
    for i:=1 to 5 do
    begin
        s:=IntTostr(i);
        ShowMessage('Message n°'  + s);
    end;
end;

[Moez.B]

Salut
Puisqu'il s'agit d'un simple affichage, tu peux encore optimiser ton code avec

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click (Sender: TObject);
var
  i: integer;
begin
  for i:=1 to 5 do
    ShowMessage('Message n° : '  + IntTostr(i));
end;

[Jipété]

(...) 2 erreurs où sont-elles ? (...)

Bonne question ! À toi de nous le dire pour qu'on t'aide (nous ne sommes pas voyants extra-lucides, et le code que tu as donné fonctionne).

[Andnotor]

La première erreur dit :

[dcc32 Erreur] Unit1.pas(xxx): E2029 ';' attendu(e) mais '.' trouvé(e)

Le compilateur considère que TForm1 est le nom d'une procédure simple. Par conséquent le point n'est pas supporté.

La deuxième :

[dcc32 Erreur fatale] Project1.dpr(x): F2063 Impossible de compiler l'unité utilisée 'Unt1.pas'

signifie simplement que la compilation a échoué dû à une erreur dans Unit1.

Bref, on ne peut pas simplement copier/coller du code lorsqu'on parle d'une méthode. Il faut qu'elle soit aussi présente dans la déclaration de la classe (et accessoirement attachée à l'évènement OnClick de Button1)

[Jipété]

Salut !

La première erreur dit : (...)

Mais comment t'as deviné ça, toi ? Trop fortiche

[Andnotor]

Mais comment t'as deviné ça, toi ?

Code :

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

procedure TForm1.Button1Click (Sender: TObject);

L'EDI ne met pas d'espace entre le nom de la procédure et les paramètres. C'est du copier/coller

[Jipété]

Code :

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

procedure TForm1.Button1Click (Sender: TObject);

L'EDI ne met pas d'espace entre le nom de la procédure et les paramètres. C'est du copier/coller

Bien vu ! Et + 1 !