[Delphi] débutant problème délimiteur

Marsh Posté le 30-10-2002 à 11:03:18

Bonjour,

Je débute en Delphi et j'aimerai insérer des données dans access via Delphi.

Mon souccis vient du faite que ces données sont de la forme :
"donnee1;donnee2;donnee3"

J'aimerai insérer ces données sous une BDD en prenant comme délimiteur ";"

Je pense qu'il faut utiliser la fonction "substr", mais j'aimerai savoir comment.

Merci

Reply

Marsh Posté le 30-10-2002 à 11:03:18

Reply

Marsh Posté le 30-10-2002 à 11:26:42

Pos -> te renvois la position d'une chaine ds une autre
Copy -> copie unmorceau d'une chaine grace à un départ et une longueur
F1 -> te donne l'aide

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Reply

Marsh Posté le 30-10-2002 à 12:20:44

[SDF]Poire a écrit a écrit :

Pos -> te renvois la position d'une chaine ds une autre
Copy -> copie unmorceau d'une chaine grace à un départ et une longueur
F1 -> te donne l'aide

Merci, je sais où se situe l'aide, mais si elle m'avait donnée une réponse je n'aurais pas posté.

J'ai fait ce code là :
PosEx := Pos(';',x);
Temp2 := Copy(x,1,PosEx-1) ;

Et j'aimerai faire une boucle me permettant de passer d'une donnée à une autre, mais je ne vois pas comment.

Si tu peux m'aider, je t'en remercie d'avance.

Reply

Marsh Posté le 30-10-2002 à 13:03:18

manimal a écrit a écrit :

Merci, je sais où se situe l'aide, mais si elle m'avait donnée une réponse je n'aurais pas posté.

J'ai fait ce code là :
PosEx := Pos(';',x);
Temp2 := Copy(x,1,PosEx-1) ;

Et j'aimerai faire une boucle me permettant de passer d'une donnée à une autre, mais je ne vois pas comment.

Si tu peux m'aider, je t'en remercie d'avance.

Je verais ça se soir G pas Delphi sous la main

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Reply

Marsh Posté le 30-10-2002 à 14:06:36

ok, merci

Reply

Marsh Posté le 30-10-2002 à 15:02:03

C'est bon j'ai résolut mon problème.

while PosEx > 0 do
begin
PosEx:=Pos(';',x);
if (PosEx <> 0 ) then
begin
Temp2 := Copy(x,1,PosEx-1) ;
showmessage(Temp2);
delete(x,1,PosEx);
end;
end;

Reply

Marsh Posté le 30-10-2002 à 15:37:01

Y a plus simple pour les fainéants.

with TStringList.Create do
try
CommaText := StrReplace(TonStr,';',',',[rfReplaceAll]);
for i:=0 to Count-1 do
ShowMessage(Strings[i]);
finally
Free;
end;

:hello: