TExternalList - Exemples
| TExternalList = class (TObject) | Interface de TExternalList | Exemples de TExternalList |
Voici un exemple d'ouverture d'une liste et de parcours de ses données :
var s := '';
// Initialise la connexion
var xl := TExternalList.Connect('MaListe');
// Ouvre un curseur pour récupérer toute la liste (attention à la volumétrie, sinon il vaut mieux filtrer !)
xl.Open('');
try
// Parcours de la liste
while xl.Step do begin
// lecture de la valeur du champ "Libellé" de l'enregistrement courant
s += xl.FieldValue('Libellé') + #13#10;
end;
finally
// Ferme le curseur
xl.Close;
end;
// Affichage du résultat.
InformationDlg(s);
// Initialise la connexion
var xl := TExternalList.Connect('MaListe');
// Ouvre un curseur pour récupérer toute la liste (attention à la volumétrie, sinon il vaut mieux filtrer !)
xl.Open('');
try
// Parcours de la liste
while xl.Step do begin
// lecture de la valeur du champ "Libellé" de l'enregistrement courant
s += xl.FieldValue('Libellé') + #13#10;
end;
finally
// Ferme le curseur
xl.Close;
end;
// Affichage du résultat.
InformationDlg(s);