TDataGrid.Insert
| TDataGrid = class (TObject) | Interface de TDataGrid | Exemples de TDataGrid |
Insère une ligne avant la ligne courante
Syntaxe
function Insert(): Integer
Remarques
- La ligne insérée est vide (toutes ses valeurs sont vides), à l'identique d'un Append, qui ajoute une ligne à la fin de la grille.
- La nouvelle ligne insérée devient la "ligne courante".
- La fonction renvoie comme résultat l'indice de la ligne insérée.
Exemples
// Cet exemple trie la grille selon la colonne "Prix" et insère une nouvelle ligne pour un prix égal à la variable valeur
var valeur : Float = 32.24;
var pos : Integer;
var dgExemple := TDataGrid.Create;
// ...
dgExemple.Sort('Prix',csdAscending );
dgExemple.First;
While (not dgExemple.EOF) and (StrToFloat(dgExemple['Prix']) < valeur) do dgExemple.Next;
pos := dgExemple.Insert;
dgExemple['Prix'] := FormatFloat('%.2f',valeur);
InformationDlg('Valeur ajoutée en position '+IntToStr(pos + 1));
var valeur : Float = 32.24;
var pos : Integer;
var dgExemple := TDataGrid.Create;
// ...
dgExemple.Sort('Prix',csdAscending );
dgExemple.First;
While (not dgExemple.EOF) and (StrToFloat(dgExemple['Prix']) < valeur) do dgExemple.Next;
pos := dgExemple.Insert;
dgExemple['Prix'] := FormatFloat('%.2f',valeur);
InformationDlg('Valeur ajoutée en position '+IntToStr(pos + 1));