Discussion :

[LaQude]

Bonjour, j'ai un petit problème de syntaxe, je m'explique:

J'ai 3 unité, deux sont des Forms et la troisième sert juste à déclaré tout ce qui est utilisé par les deux Forms (Procédure, etc...).
Dans cette troisième Unité je déclare une procédure d'écriture dans un fichier .ini, seul problème je ne vois pas comment y mettre les Type (Exemple: EdInstance.Text)qui sont spécifique au Unité 1 et 2 avec cette syntaxe:

Code :

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

1
2
 
EdNameServer.Text := wIniFile.ReadString(_SECTION_OPTIONS,_IDENT_SQLSERVERNAME, '(local)' );

J'ai essayé de la mettre dans un identifiant mais j'ai cette erreur "[Error] Unit3.pas(37): Left side cannot be assigned to".

Dans chaque Unité j'appelle les deux autres (Unité1 appel 2 et 3 etc...), cela ne viendrais pas de ces appels qui serait mal placés?

Comment faire?

Merci d'avance !

[ShaiLeTroll]

Si tu isoles le code, je te déconseille de faire référence à un control d'une TForm, cela rend tes séparations peu utile voire inutilement complexe !

Tu oublies que le Self est implicite dans le méthodes d'un objet comme une TForm

Par exemple, toutes ces lignes sont semblables

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);
begin
  // Parfaitement identique
  ShowMessage(EdNameServer.Text);
  ShowMessage(Self.EdNameServer.Text);
 
  // Form1 est une variable globale dans une construction simpliste avec une seule instance de TForm1,
  // il y a de grande chance que Form1 soit égale à Self 
  // MAIS il y a un risque qu'il soit différent selon comment sont gérés les instances !
  ShowMessage(Form1.EdNameServer.Text); // Très dangereux d'utiliser cette variable globale si l'on ne maitrise pas les instances !
end;

Si tu fais une fonction en dehors de la classe, tu dois explicitement indiquer l'instance
Mais encore une fois l'utilisation de cette instance globale doit être fait en toute maitrise, je ne le fais jamais pour ma part, je supprime souvent cette variable inutile, seule la MainForm en conserve une par obligation

Code :

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

1
2
3
4
procedure ProcedureEnDehors();
begin
  ShowMessage(Form1.EdNameServer.Text);
end;