Nettoyer un élément record

Bonjour,

J'ai un tchô problème, je déclare un record ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Tinfocarnet = record nom, prenom, prenom2, surnom, afficher, email, folder: string; ruep, villep, titrep, departementp, codepostalp, paysp, telp, tel2p, faxp, telmobp, webp: string; societe, rue, ville, departement, codepostal, pays, web, titre, service, bureau, tel, fax, telmob: string; epoux, enfants, sexe: string; ddateanniv, ddatefete, ddateoccas: tdate; occasion: string; imgindex, emailpardefaut: integer; remarques: string; txtbrut, dateanniv, datefete, dateoccas: boolean; end;

---

Imaginons que je crée une variable ainsi

Code:

---

var contact:tinfocarnet;

---

Y'a t'il un moyen plus simple pour reinitialiser la variable que de faire :

Code:

---

1 2 3 4

contact.nom :=''; contact.prenom := ''; contact.email :=''; .....

---

Merci d'avance

Code:

---

FillChar(contact, SizeOf(Tinfocarnet), 0);

---

Merci bien krusty ;)

Citation:

---

Envoyé par slimjoe

Code:

---

FillChar(contact, SizeOf(Tinfocarnet), 0);

---

---

C'est une mauvaise solution. Cela introduit des fuites mémoires monstres ! Tous les string seront laissés non libérés.

Fais plutôt ceci :

Code:

---

1 2 3 4

Finalize(Contact); // et si tu as des champs non-string, // tu ajoutes ce qu'a donné slimjoe : FillChar(Contact, SizeOf(TInfoCarnet), 0);

---

Merci beaucoup !