Suppression d'éléments dans tableua

Question

Salut a tous, j'ai un petit probleme.

Coment supprime 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 a jour  



Unit....
.
.
Type
  MemberData = Record
      MemberId,
      MemberPassword : String[10];
      MemberName,
      MemberPhone    : String[20];
      Comments       : String[50];
      MemBerDebt     : Real;
      PrePayed       : Boolean;
      CreatedAt      : TDate;
 End;

......
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;
 MERCI

cs_cantador · Answer

Bonjour,

Ce souci a été traité par f0xi..
cherche dans ses posts sur le forum..

cela dit, d'autres solutions existent :
TObjetList
table de bd

cantador

cs_lehcen · Answer

Merci  Contador 
Mais "je n'aime pas" table de bd.
une solution ?

Suppression d'éléments dans tableua

2 réponses

Votre réponse

Discussions similaires