Discussion :

[programaniac]

je n'ai pas tres bien compris comment je peux faire une unit externe rien qu'avec des fonctions et procédures pour les rendres globales j'aimerais qu'on m'explique comment faire car quand je fait une unit externe il me dis toujours feuille.dfm manque patati patata

Merci

[aityahia]

dans le menu fichier nouveau Unités et le tour et jouer pas de problemes de DFM

[programaniac]

et comment je fait pour utiliser une procédure ou une fonction dans mon autre fiche alors?

[TicTacToe]

Unité:

Code :

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

1
2
3
4
5
6
7
8
9
10
Unit Outils;
 
interface
  procedure MaProc();
 
implementation
procedure MaProc();
begin
...
end;

Fiche

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
 
Unit UMaForm;
 
Interface
 
Uses Outils; // <--- grace a cela on peut acceder aux fonctions de l'unité Outils
 
type TMaForm = class
        procedure MaMethode();
     ...
     end;
 
...
Implementation
 
procedure TMaForm.MaMethode();
begin
  Outils.MaProc; (on peut omettre 'Outils.' mais c'est plus clair ainsi)
end;

Bon courage !

[programaniac]

pourquoi quand je mets

function g_cEn_nombre_V2(la_touche : char; contenu : TControl; decimale : boolean) : char ;

il me dis que TControl est un identifier non déclaré alors que j'ai tout fait pour que ca fonctionne

c'est un truc que j'ai l'habitude d'utiliser mais là ca fonctionne pas
tu ne saurai pas me donner un exemple concret avec cette fonction

que je peux apeller de n'importe ou stp

c'est une fonction personnel normalement ca fonctionne avec un edit

mais quand je le met en externe ca fonctionne pas???

merci.

[evarisnea]

il me dis que TControl est un identifier non déclaré alors que j'ai tout fait pour que ca fonctionne

de même que pour utiliser les fonctions que tu va mettre dans ton unité depuis une autre unité, il faut que tu ajoute celle ci dans la clause uses de tes autres unités, tu dois ajouter l'unité où est définie la classe TControl dans la clause uses de ton unité. pour rappel la classe TControl est déclarée dans l'unité Controls. j'espere avoir été assez clair.

[programaniac]

Dites moi s'il vous plait qu'est ce qui foire dans ca

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
unit Unit1;
 
interface
  function test_f() : boolean;
  procedure test_p();
 
 
uses Messages, Windows, SysUtils, Dialogs;
 
implementation
function test_f() : boolean;
  begin
    ShowMessage('appel fonction');
  end;
procedure test_p();
  begin
    ShowMessage('appel procedure');
  end;
end.

testez le chez vous car moi je pije pas c'est un truc de base qu'il me fo looooooooooool et j'arrive pas a le faire

je veux juste au moin compiler et ca foire et pourtant j'ai suivi l'exemple de tictactoe

merci et pardon les mecs

[programaniac]

Bon les gars j'ai résolu le probleme avec CA

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
 
unit ext_proc_func;
 
interface
 
uses Messages, Windows, SysUtils, Dialogs;
 
type
  lol = class(TCommonDialog);
  function test_f() : boolean;
  procedure test_p();
 
implementation
function test_f() : boolean;
  begin
    ShowMessage('appel fonction');
  end;
procedure test_p();
  begin
    ShowMessage('appel procedure');
  end;
end.

mais je ne comprend PAS pkoi JE DOIS FAIRE UN TRUC du genre

lol = class(TCommonDialog);
lol = class(patati patata);

mais lol quand meme

[evarisnea]

les déclarations de procédures et fonctions doivent venir après la clause Uses

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
unit Unit1;
 
 
interface
uses Messages, Windows, SysUtils, Dialogs;
 
  function test_f() : boolean;
  procedure test_p();
 
implementation
function test_f() : boolean;
  begin
    ShowMessage('appel fonction');
  end;
procedure test_p();
  begin
    ShowMessage('appel procedure');
  end;
end.

et pense aussi à définir les valeurs de retour de tes fonctions et s'il n'y en a pas alors utilises plutôt des procédures

[evarisnea]

mais je ne comprend PAS pkoi JE DOIS FAIRE UN TRUC du genre

lol = class(TCommonDialog);

moi non plus je ne comprend pas pourquoi tu as fait un truc comme ca, je n'en vois pas l'utilité ici.
sinon si tu désires comprendre pourquoi faire des trucs du genre

lol = class(patati patata);

je t'invite à lire l'aide de delphi à propos des classes et composants

[programaniac]

MERCI MA poule
je t'aime