Améliorer la lisibilité du code ..

Version imprimable

16/05/2007, 20h08
Alpha4

Améliorer la lisibilité du code ..

Bonjour,

Voila le problème : ma fiche principale (Main.pas) fait déja pas mal de ligne, et j'aimerai couper/coller mes fonctions dans une autre fiche (MesFonctions.pas) ...

Sauf que je ne s'est pas faire la transposition sans crée une nouvelle classe.
(qui entrainerai une modification de ma fiche principal ... les appels de mes fonctions deviendraient MaNouvelleClasse.MaFonction ... au lieu de MaFonction)

Mahleureusement pour moi, je ne comprend pas grand chose a l'ordre des 'interface', 'uses','implémentation' ... ect :s

Je rechercherai donc la rédaction type de ma fiche MesFonctions.pas

(jai déja la premiere ligne

unit MesFonctions;

:)

J'espère être assez claire :lol: :lol: Merci de votre aide.

Petit exemple

Bonjour

J'ai créé une fiche avec un TEdit et un TButton.
Lorsque je clique sur le bouton, ça écrit "toto" dans le TEdit

Code:

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
 
unit Unit1;
 
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    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);
begin
  Edit1.Text := 'toto';
end;
 
end.

Maintenant si tu veux sortir le code du bouton dans une autre unité, tu peux faire de la façon suivante :

Code:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  EcrireTexte(Self);
end;

end.

-------------


unit Unit2;

interface

uses Unit1;

procedure EcrireTexte(F: TForm1);

implementation

procedure EcrireTexte(F: TForm1);
begin
  F.Edit1.Text := 'toto';
end;

end.

Dans ton cas, Unit1 contient main.pas et Unit2 correspond à MesFonctions.pas

16/05/2007, 22h14
Alpha4
Malheureusement c'est pas vraiment mon probleme

Voila un exemple de ma fiche Main.pas
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 unit main; interface uses Main; ... implementation {$R *.dfm} function Mafonction(Msg : String) : String; begin //je traite mon Msg ... end;
et en faite j'aimerai mettre toute ces fonctions (et pas les procedures) dans une autre fiche
Les procedures je les laisses sur la fiche Main.pas

J'espère que j'ai été plus claire.

Pas compris

Bon, je suis pas sûr d'avoir compris mais tu peux faire ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 unit main; interface ... implementation uses MesFonctions; {$R *.dfm}
et ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 unit MesFonctions; interface function Mafonction(Msg : String) : String; implementation function Mafonction(Msg : String) : String; begin //je traite mon Msg ... end;
tes fonctions sont dans le fichier MesFonctions.pas
elles sont utilisables dans l'implémentation du Main.pas grace à l'instruction uses Mesfonctions

16/05/2007, 22h31
Alpha4

Exactement.

Lors de la complilation suivant ton model j'ai l'erreur suivante

[Erreur] MesFonctions.pas(29): Déclaration forward ou external non satisfaite : 'Test'

Une idée?
16/05/2007, 22h59
apad

déclaration forward

Ca peut signifier que la fonction Test est déclarée dans la partie interface mais pas dans la partie implémentation.

Après correction voila l'état de mes 2 fiches:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 unit main; interface uses MesFonctions; ... implementation {$R *.dfm} ...
Fiche 2 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 unit MesFonctions; interface implementation function Test(Msg : String) : String; begin Result := Msg; end; end.
Erreur lors de la compilation :
[Erreur] Main.pas(93): Identificateur non déclaré : 'Test'

Une autre idée?

salut

dans l'unite MesFonctions.pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
unit MesFonctions;
interface
function Test(Msg : String) : String;
 
implementation
 
function Test(Msg : String) : String;
begin
  Result := Msg;
end;
 
end.

@+ Phil

17/05/2007, 00h08
Alpha4

Merci de votre aide :) ça marche ^^

C'était vraiment bête ... désolé du dérangement. :?