Discussion :

[AL1986]

Hello,
Je travaille sur un projet de migration de vb à delphi. J'aimerai connaître l'équivalent de controls, en effet dans vb j'ai un code du genre form.controls.count ce qui permet de compter les controls de la form, cependant ce code ne semble pas être reconnu sous delphi, j'ai cherché un peu dans l'aide mais je n'ai trouvé qu'un équivalent à Control qui est TControl (me trompe-je ?). Merci pour votre aide.
Ali

[Cl@udius]

Salut

L'équivalent en Delphi est Components. TControl est une classe dont dérive de nombreux composants, TButton par exemple.

Pour avoir le nombre de composants sur ta fiche:

Code :

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

1
2
 
  ShowMessage(Self.ComponentCount);  // Self représentant ta form.

@+ Claudius

[AL1986]

Merci pour la réponse.
Pour le bout de code suivant je remplace donc Controls.count par ComponentCount, mais Controls(i) ne semble pas poser de pb, c'est le . qui se trouve avant qui n'est pas le bien venu. Devrai-je remplacer .Controls(i) par f.Controls(i), f.Components(i), Components(i) ou .Components(i) ... ?

with f do begin
iMax := 0;
for i := 0 to Controls.Count-1 do begin
with .Controls(i) do begin
if (Visible ) then begin .....

Pour parcourir les forms d'une application en vb, on utilise la propriété forms, quel est son équivalent en delphi ? . En ce qui concerne field et database en vb, j'ai cherché des équivalents sur l'aide de delphi, j'ai trouvé TDatabase et Tfield mais qd je déclare des variables ayant ces types, les deux types ne sont pas reconnus. Why ????? .Merci.
Ali

[Cl@udius]

Code :

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

1
2
3
4
5
6
 
with f do begin
  iMax := 0;
  for i := 0 to ComponentCount-1 do begin
    with Components[i] do begin
      if (Visible) then begin .....

Voilou !

J'aurai aussi une autre question, pour parcourir les forms d'une application en vb, on utilise la propriété forms, quel est son équivalent en delphi ? . Merci.

Tu travaille sur une appli MDI ?

[Cpt Anderson]

Non, ce n'est pas une appli MDI, mais plutot une appli UAG

[AL1986]

Non ce n'est pas une application MDI.
Dans le code vb, j'ai des lignes du genre VB.Forms.count ceci me compte les forms chargées dans l'application, j'ai trouvé dans l'aide delphi que je peux les compter en appelant FormCount, dans l'exemple fourni, il est appelé sur screen, dois-je en faire de même? Merci.

[Cl@udius]

dois-je en faire de même? Merci.

Voui !!

Code :

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

1
2
3
4
 
for i := 0 to Screen.FormCount - 1 do
  with Screen.Forms[i] do begin
    // ...

@+ Claudius