comment dire if table1 .first

salem
dans ma petite application je voudrais dire :
if table1.first then close //par exemple
comment dois être la syntaxe 8O

Citation:

Envoyé par stfanny31

salem
dans ma petite application je voudrais dire :
if table1.first then close //par exemple
comment dois être la syntaxe 8O
Code:

1 2 if table1.first then table1.close;
Mais je ne vois pas l'interet !

Table1.BOF ?

l’intérêt :
l'utilisateur ce déplace sur le DBGrid ,si il passe par le prémier enregistrement j'ai une vérification a faire.
merci Mr Nono40 mais la condition suivant et toujours True :aie:

Citation:

procedure TFAffaire.DBGrid6CellClick(Column: TColumn);
begin
if table1.BOF then application.Terminate;
end;

j'ai pas compris pourquoi !

Il faudrait tester le BOF durant le AfterScroll mais couplé à un DBGrid, j'ai un doute sur le comportement à cause de MoveBy qui ne modifie pas BOF comme le fait First mais plutôt comme le ferait Prior, comme il est impossible de sortir d'un DBGrid par le clic, BOF une fois à False ne revient jamais à True !

BOF, après l'ouverture, reste True tant que l'on est sur la 1ere Ligne (après un First ou un Prior si on était déjà sur la première ligne)
Dès que l'on change de ligne, il passe à False !
EOF passe à True lors d'un Last ou un Next (si on était déjà sur la dernière ligne)

First est une procedure donc ne renvoie pas un résultat donc cette fonction n'a pas sa place sans un if
Avant de poster, Merci de lire l'aide et de nous indiquer le fruit de vos recherche !

Citation:

Envoyé par Data.DB.TDataSet.First

Se déplace sur le premier enregistrement de l'ensemble de données.

Appelez First pour rendre actif le premier enregistrement de l'ensemble de données. First valide toutes les modifications apportées à l'enregistrement actif et :

Efface les tampons de l'enregistrement.

Lit le premier enregistrement, et en fait l'enregistrement actif.

Lit tous les enregistrements supplémentaires nécessaires à l'affichage, par exemple ceux utilisés pour remplir un contrôle grille.

Définit la propriété Bof sur true.

un TDBGrid utilise MoveBy pour se déplacer :

Citation:

Envoyé par Data.DB.TDataSet.MoveBy

Si la valeur de Distance est négative, lit le nombre approprié d'enregistrements précédents (si possible), et rend actif le dernier enregistrement lu. Si cela entraîne un déplacement au-delà du début du fichier, MoveBy affecte la valeur true à Bof. Si l'ensemble de données est unidirectionnel, il déclenche une exception EDatabaseError quand MoveBy tente de lire un enregistrement précédent.

A l'ouverture, BOF est à True,
Au clic sur le 2nd enregistrement, BOF passe à False
Au clic sur le 1er enregistrement, BOF reste à False !
Une fois sur le 1er, seul la touche Array UP ou Page UP fait repasser BOF à True, mais pas le clic !

Il faudrait tenter un RecNo comme ceci

Code:

if Table1.RecNo = 1 then

Citation:

Envoyé par ShaiLeTroll

Il faudrait tenter un RecNo comme ceci

Code:

if Table1.RecNo = 1 then

Est ce que le RecNo ne changerait pas si on change l'indexe ?