FONCTION D'EXTRACTION D'UNE CHAÎNE
JulioDelphi
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Membre
Dernière intervention
18 novembre 2010
-
31 oct. 2006 à 14:53
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 - 1 nov. 2006 à 19:05
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 - 1 nov. 2006 à 19:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40156-fonction-d-extraction-d-une-chaine
https://codes-sources.commentcamarche.net/source/40156-fonction-d-extraction-d-une-chaine
1 nov. 2006 à 19:05
1 nov. 2006 à 18:46
1 nov. 2006 à 11:19
au fait, ce genre de code est à poster sur www.codyx.org, tu peux utiliser ton login/pass actuel pour le poster.
pourquoi le poster sur codyx ? et bien codes-sources regorge et degorge de mini-sources/-10 lignes de codes etc
>> Codyx est la "caisse moins de 10 articles" de codes-sources =)
cette source sera supprimée demain (01-11-06)
merci d'avance
1 nov. 2006 à 02:10
ici ta fonction as des performances trop execrable, pour qu'elle puisse etre utilisée.
31 oct. 2006 à 19:25
donc les 3 "bugs" sont :
- si ma chaine fait plus de 255 caracteres > erreur de compilation
- si ma chaine commence par le caractere de séparation > décalage
- si ma chaine fini par le caractere de séparation > ne renvoie rien
allez hop au boulot
31 oct. 2006 à 18:54
Function Extraire(carset: string; chaine: string; i: integer): string;
var
y:integer;
z:integer;
//chaineextraite:string;
begin
for y:=1 to i do
begin
z:=Pos(carset,chaine);
//chaineextraite:=Copy(chaine,1,z-1);
Result :=Copy(chaine,1,z-1);
Delete(chaine, 1,z);
end;
//Result:=chaineextraite;
end;
A + ;-)
31 oct. 2006 à 18:45
copie/colle moi la fonction complete avec ton remplacement
31 oct. 2006 à 18:37
Tu peux faire l'économie de la variable "chaineextraite" et écrire directement :
Result := Copy(chaine,1,z-1);
31 oct. 2006 à 15:21
31 oct. 2006 à 15:14
Function Extraire ( Carset : Char; chaine : String; I : Cardinal ) : String;
Et à vu d'oeil si ta chaine ne se termine pas par le caractère separateur, et que tu demande à recupérer le dernière élément, ta fonction ne doit rien retourner.
Fait un zip avec un exemple, çà sera plus simpa :-)
Bon code, ++
31 oct. 2006 à 14:53