cs_lehcen
Messages postés12Date d'inscriptionmercredi 2 novembre 2005StatutMembreDernière intervention26 mai 2011
-
26 mai 2011 à 12:13
cs_lehcen
Messages postés12Date d'inscriptionmercredi 2 novembre 2005StatutMembreDernière intervention26 mai 2011
-
26 mai 2011 à 12:13
Salut a tous, j'ai un petit probleme.
Coment supprimer un item d'un tableau ?
j'ai le code suivant ,mais marche pas :
Je veux supprimer l'élément sélectionné dans ListView, et mise à jour
......
MemberFile : File Of MemberData;
ElDelMember : MemberData;
Records : Array Of MemberData;
....
{$R *.dfm}
Procedure TMembersFrm.FormCreate(Sender: TObject);
Begin
AssignFile(MemberFile,'members.dat');
{$I-} Reset(MemberFile); {$I+}
If IoResult <> 0 Then Rewrite(MemberFile);
end;
....
//Supprimir l'enrigistrement (l'élément sélectionné) dans ListView
// Suppression d'éléments du tableau par le déplacement
Procedure TMembersFrm.Delete1Click(Sender: TObject);
for i:= ListView1.Selected.Index to FileSize(MemberFile)-1 do //
begin
Records[i]:=Records[i+1];
end;
SetLength(Records,FileSize(MemberFile));
end;
mais ce marche pas