Fonction copy avec séparateurRésolu

Question

Salut à vous,

Vous allez devenir chevres (moi ca fait deja 1 h que je le suis Grrrr) mais on dit bien jamais 2 sans 3 alors une petite derniere question pour la route

Procedure TUMERENDSCHEVRE;
Var
Line:string,
begin
Line:='Delphi&c'est fantastique quand ca beugue pas toutes|les 30 secondes';
ListBox1.Items.add(Copy(Line,  Pos('&', Line)+1, Pos('|', Line)-1 ));
end;

Et bien ce gredin de programme plutot que de m'afficher dans la listbox tout ce qu'il y a entre & et | il m'affiche : "c'est fantastique quand ca beugue pas toutes|les 30 secondes".

Que ca m'énerve : je capte pas pk ca plante.

Merci d'intervenir et d'épargner les quelques cheveux qu'ils me restent

jlen100 · Accepted Answer

petite rectification:



debut:=Pos('&', line)+1;

 fin:=    Pos('|', line) -debut;

 buf1:=Copy(line, debut,fin  );  

  ListBox1.Items.add(buf1);

 

 

 voili voilou!!

 

 @+

 jlen

jlen100 · Answer

salut

syntaxe de copy:

function Copy(S; Index, Count: Integer): string;

or tu donne 2 index!!!!!!!

en decomposant

debut:=Pos('&', line)+1;

fin:=    Pos('|', line) -debut;

buf1:=Copy(buf, debut,fin  );  

 ListBox1.Items.add(buf1);





voili voilou!!



@+

jlen

Francky23012301 · Answer

Quel crétin je fais,

Merci

jlen100 · Answer

c'est toujours quand on a la solution sous les yeux qu'on ne la voit pas



@+

jlen

Fonction copy avec séparateur

4 réponses

Votre réponse

Discussions similaires