Récuperer les 3 premiers carracteres d'une chaine

Bonjour,

Voila ma question va vous paraitre simple :

Comment récuperer seulement les 3 premiers carractere d'une chaine, j'ai trouver dans beaucoup de langage mais pas en delphi :( .

Merci d'avance .

showmessage(copy( machaine,0,3));


exyacc

je te conseille la fonction copy :
ex : ss est les 3 premiers caractères de s :

ss := copy(s,1,3)

tu as aussi la fonction leftstr de strutils (rajoute-la dans la clause uses) :
ex:

ss:= leftstr(s,3)
(à noter que contrairement à la première, elle ne fonctionne que sur les dernières versions de delphi (ex la mienne : delphi 6)

tu peux aussi le prendre caractère par caractère :

ss:= s[1]+s[2]+s[3]

J'éspère que cela t'aidera.

Cordialement

SISI231

exyacc : tu m'as doublé sur la ligne d'arrivée (47 secondes !) mais tu as oublié que l'indice du 1er caractère d'une chaîne est 1 et non 0 ! 

SISI231

vi il est vrai.... mais avec 0 ca marche aussi... ;o)
et en 47 s j'ai pu faire un tour de piste en plus !

exyacc

:D merci les gars sinon, je m'etait deja rabatu sur machain:=a[1]+b[2]+c[3] mais bon je voulais qqchose de plus propre ;D maintenant je l'ai .

Encor une chose, comment inclure un dossier avec des sous-dossiers qui contiendrai des fichier comme ressource dans mon executable ???

Merci d'avance.

Salut,
Regarde ici je pense que ça fera ton bonheur
http://www.delphifr.com/forum.v2.aspx?id=168848

@+
Cirec

Maleuresement, je sait ajouter n'importe quel fichiers, mais le c'est un REPERTOIRE que je veut ajouter .

ok, j'avais mal compris mais à mon avis c'est pas faisable sauf en le comprimant et en ajoutant le zip à la ressource après c'est à toi de récuperer ce qu'il te faut avec la zlib par exemple.

@+
Cirec