Plusieurs Units pour une seule Form.

Question

Bonjour,

Je développe depuis un certains temps un projet où je suis obligé d'avoir une quarantaine de contrôles ( TEdit et TListbox essentiellement ) sur la même Form. Je me retrouve donc avec un très grand nombre de procédures, toutes dérivées de ma Form. 
Actuellement, mon code dépasse les 4000 lignes, et j'ai beaucoup de mal à naviguer dedans.
Je souhaiterais donc mettre mes procédures dans des Units à part, mais je n'y arrive pas. J'ai essayé toutes les déclarations possibles, mais en vain.
Est que quelqu'un saurait comment faire cela ? Ou est-ce tout simplement impossible.

PS :  je ne suis pas du tout développeur, je développe juste par plaisir depuis 2 ans environ. Mon niveau est donc assez faible.

Je vous remercie d'avance,
Hervé

cs_limy · Answer

Salut,

tu crée une nouvelle unité.

Dans cette unité :

section interface

uses .........  (nom des unités que tu utilises)
Ex: uses QDialogs; // Pour pouvoir utiliser showmessage

procedure affiche(); // déclaration de ma procedure

section implementation

procedure affiche();
begin
showmessage('toto');
end;

end.

Pour utiliser cette unité, tu mets : uses nom_de_l_unite_avec_les_procedure; dans ta form dans la section implementation

bonne prog
Limy

hhhdaigre · Answer

Limy tu me sauve la vie !!! Avec 4000 lignes de codes je pétait un cable !!! MERCI BEAUCOUP !!!

JulioDelphi · Answer

4000 lignes ?
OMG c koi ça ?

un conseil :

si tu as plusieurs edit (par exemple) ki font la meme chose, tout au moins la meme action, ne cree pas une procedure par compo genre :

procedure TForm1.Edit1Change(Sender: TObject);
begin
 blablablabla1
end;

procedure TForm1.Edi2tChange(Sender: TObject);
begin
 blablablabla2
end;

etc

mais fait plutot :

procedure TForm1.EditsChange(Sender: TObject);
begin
 if sender=edit1 then blablablabla1;
 if sender=edit2 then blablablabla2;
end;

tu comprends ? et n'hesite pas a creer des fonctions ou des procedures a toi. regarde ton code, regarde si tu trouves des procedure ki se ressemble (comme mon exemple avec les 2 edit), si tu as ça, alors cree toi des procedures.
perso : je veux bien voir ton .pas de 4000 lignes :)
merci de me l'envoyer :D
diabloporc@laposte.net

Plusieurs Units pour une seule Form.

3 réponses

Votre réponse

Discussions similaires