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

[AL1986]

Ouki, et pour les TField et TDatabase, pourquoi ne sont-ils pas reconnus ?

[Cl@udius]

TField est défini dans l'unit DB, TDatabase est défini dans DBTables.

Ces unités sont automatiquement incluses dans les uses dès que tu déposes un compo orienté données sur ta fiche.

Qu'est-ce que tu veux faire exactement ?

@+

[AL1986]

J'ai une procédure qui copie la structure d'une table dans une autre, son code vb est :

Sub CopyStruct(from_db As Database, To_db As Database, from_nm As String, to_nm As String, create_ind As Integer, Export As Boolean)
Dim i As Integer
Dim Tbl As New TableDef
Dim Fld As Field
Dim ind As Index
Dim k As Long
NameSearch:
For i = 0 To To_db.TableDefs.count - 1
If To_db.TableDefs(i).Name = to_nm Then
If Export Then
To_db.TableDefs.Delete to_nm ......

Après migration, le code delphi est le suicvant :

procedure CopyStruct(from_db : Database;To_db : Database;from_nm : string;var to_nm : string;create_ind : integer;Export : boolean);
var
Fld : tfield;
i : integer;
ind : Index;
k : longint;
begin
NameSearch:
for i := 0 to To_db.TableDefs.count-1 do begin
if (To_db.TableDefs[i].Name = to_nm ) then begin
if (Export ) then begin
To_db.TableDefs.delete( to_nm ) ;.....

database n'a pas été remplacé et tfield n'est pas reconnu, qd je remplace database par tdatabase ce n'est toujours pas reconnu. TableDefs non plus et je ne sais pas par quoi le remplacer.

[Cl@udius]

Re,

Je pense que tu auras plus de chance d'obtenir une solution en clôturant cette discussion (le bouton Résolu et/ou Délestage en bas) et en ouvrant une autre sur le Forum Delphi et Bases de données.

N'oublies pas de préciser dans ton message le type de bases de données (Access) et la facon dont tu te connectes à celle-ci (ADO, dbExpress, ...).

Tu peux déjà ajouter les unités DB et DBTables dans tes uses afin qu'il reconnaisse les types TDatabase et TField.

@+ Claudius