insertrecord et variable string

Bonjour,

Voilà j'ai ma chaine A: ''champ1','chp2','ch3''.

Je voudrais faire un insertrecord([a]), le problème c'est qu'il m'insere toute ma chaine dans le champ1.

Comment faire pour avoir ce résultat insertrecord(['champ1','chp2','ch3']), en gardant ma variable A ?

Merci pour votre aide

valoji

Tu ne peux pas.

InsertRecord attend un tableau de valeur, toi tu lui mets un string simple, donc il considère que ce string fait partie du tableau de valeur.

a mon avis (a tester) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var A : Array of string; begin SetLength(a,3); a[0] := QuotedStr('Champ1'); a[1] := QuotedStr('Champ2'); a[2] := QuotedStr('Champ3);   With TonCompoDb do begin { InsertRecord(VarArrayof(a)); // ou InsertRecord([a]);} end; end;

---

A tester bien sur ...

une autre idée est de faire une fonction intermédiaire qui va te splitter ta chaîne de caractères en morceaux.

typiquement

Code:

---

1 2 3 4 5 6 7

ArrString = array of string;   function Split(Args: string): ArrString begin // là tu utilise l'unité StrUtils avec les fonctions Pos, LEftStr et RightStr end;

---

ensuite tu as ta procédure qui insère un record à partir d'un ArrString

Code:

---

1 2 3 4 5 6 7

procedure InsertRecord(ACommand: TADOCommand; Args: ArrString) for each Arg Acommand.Parameters[i].Value := Args[i] end ACommand.Execute end;

---

et enfin tu appelles tout ça avec

Code:

---

1 2	InsertRecord(MyCommand, ''champ1','chp2','ch3'')

---

maintenant pour les détails faudrait au moins que tu dises quels composants tu utilises.