Migration vb/delphi, Controls

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

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:

---

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

---

@+ Claudius

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

Code:

---

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 !

Citation:

---

Envoyé par AL1986

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 ?

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

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.

Citation:

---

Envoyé par AL1986

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

---

Voui !! :D

Code:

---

1 2 3 4

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

---

@+ Claudius

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

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 ?

@+

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.

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