fonction mal faite ?

**dragonno** · 30/01/2009, 00h10

Bonsoir^^
quelqu'un saurait ce qui provoque une erreur dans le programme ?
Apparemment ça arrive dés que la fonction separe() est appelée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
type
  Tmaliste = array of ShortString;
  TForm1 = class(TForm)
    Label2: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  temp:ShortString;
  tableau:Tmaliste;
 
implementation
 
{$R *.DFM}
 
//... Sépare les mots d'une chaine qui sont liés par le séparateur indiqué .....................
function separe(chaine : ShortString; sep : char): Tmaliste;
var i,m:integer;
    phrase,mot:ShortString;
    car:char;
begin
  temp:='''';
  phrase:=chaine;
  m:=0;
  if (chaine<>'''') then
  begin
    mot:='''';
    for i:=0 to (length(phrase)-1) do
    begin
      car:=phrase[i];
      if (car=sep) then
      begin
        result[m]:=mot;
        inc(m);
        temp:=temp+mot+'' '';
        mot:='''';
      end else mot:=mot+car;
    end;
  end;
  Form1.Label2.caption:=temp;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.text:=''pied*velo*auto*train*'';
  temp:=Edit1.text;
  tableau:=separe(temp,''*''); // ERREUR ici !
end.

**anapurna** · 30/01/2009, 00h58

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
//... Sépare les mots d'une chaine qui sont liés par le séparateur indiqué .....................
function separe(chaine : ShortString; sep : char): Tmaliste;
var 
  i          : integer;
  mot : ShortString;
  car            : char;
begin
  temp:='';
  if (chaine<>'') then
  begin
    mot:='''';
    for i:=1 to pred(length(chaine)) do
    begin
      car:=chaine[i];
      if (car=sep) then
      begin
          
            setlength(result,length(result)+1);
            result[high(result)]:=mot;
                
            temp:=temp+mot+' ';
            mot:='';
      end 
      else 
        mot:=mot+car;
    end;
  end;
  if trim(mot) <> '' Then
  begin
   
    setlength(result,length(result)+1);        
    result[high(result)]:=mot;
    temp:=temp+mot+' ';
    mot:='';
        
  Form1.Label2.caption:=temp;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.text:='pied*velo*auto*train';
  temp:=Edit1.text;
  tableau:=separe(temp,'*'); 
end.

@+ Phil

**cincap** · 30/01/2009, 08h31

Bonjour,

@ Anapurna, je viens de tester ta fonction, mais si elle ne provoque plus d'erreur à la compilation, le résultat dans le label est incomplet.

En effet si,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Edit1 := 'pied*velo*auto*train';

on devrait obtenir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Label1.caption := 'pied velo auto train';

et on obtient avec ta fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Label1.caption := 'pied velo auto trai';

Il manque 1 caractère soit le dernier !

@+,

Cincap

**cincap** · 30/01/2009, 09h19

@ Anapurna, avec ceci c'est correct, sans aucune fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.BTestClick(Sender: TObject);
var
MaListe: TStringList;
i: Integer;
cont: string;
valeur: string;
begin
MaListe:=TStringList.Create;

cont := Edit1.text; // ou = à  'pied*velo*auto*train';

MaListe.Text:=StringReplace(cont,'*',#13#10,[rfReplaceAll]);
for i:= 0 to MaListe.Count-1 do begin
valeur:= MaListe.Strings[I];
ShowMessage(valeur);
end;
FreeAndNil(MaListe);
end;

ou modifier ta fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
function separe(chaine : ShortString; sep : char): Tmaliste;
var
  i          : integer;
  mot : ShortString;
  car            : char;
begin
  temp:='';
  if (chaine<>'') then
  begin
    mot:= ''; // et non '''';
    for i:=1 to pred(length(chaine)+1) do
    begin
      car:=chaine[i];
      if (car=sep) then
      begin

            setlength(result,length(result)+1);
            result[high(result)]:=mot;
                
            temp:=temp+mot+' ';
            mot:='';
      end
      else 
        mot:=mot+car;
    end;
  end;
  if trim(mot) <> '' Then
  begin
   
    setlength(result,length(result)+1);
    result[high(result)]:=mot;
    temp:=temp+mot+' ';
    mot:='';

 Form1.Label1.caption:=temp;
end;
end;

@+,

Cincap

**petitcoucou31** · 30/01/2009, 10h46

salut,

ou aussi ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
//---------------------------------------------------------------------
procedure ExtraitInfo(sep:char;chaine:string; var resultat:Tstringlist);
var temp:string;
    P:integer;
begin
   while chaine<>'' do
   begin
       temp:=chaine;
       P:=pos(sep,chaine);
       if P=0 then chaine:=''
       else
       begin
           delete(chaine,1,P);
           delete(temp,P,length(chaine));
       end;
       resultat.Add(temp);
   end;
end;
//---------------------------------------------------------------------
 
// test
procedure TForm1.Button1Click(Sender: TObject);
var L:Tstringlist;
    i:integer;
begin
    L:=Tstringlist.Create;
    ExtraitInfo('*','toto*tata*tutut*yyiy',L);
    for i:=0 to L.count-1 do memo1.Lines.add(L[i]);
    L.Free;
end;

**cincap** · 30/01/2009, 11h42

@ petitcoucou31, il faut un Tmemo et non Tedit pour l'utilisation de ta fonction, sinon c'est correct.

Elle peut s'appliquer avec un Tedit ?

@+,

Cincap

**anapurna** · 30/01/2009, 11h51

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for i:=1 to pred(length(chaine)+1) do

remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

     for i:=1 to length(chaine) do

@+ Phil

**cincap** · 30/01/2009, 12h03

@ Anapurna l'homme qui soulève des montagnes !

Bien entendu, c'est correct.

Par contre si on laisse ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
begin
  temp:='';
  if (chaine<>'') then
  begin
    mot:= '''';

au lieu de mot := '';

On perd aussi le dernier caractère soit '

Je viens de tester toujours avec cette fonction ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Edit2.text:='pied*velo*auto*train*avion*bateau'; //en enlevant bateau uniquement

pour ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Edit2.text:='pied*velo*auto*train*avion*';

Et la aucun changement.

@+,

Cincap

**dragonno** · 30/01/2009, 13h15

Heu.....

Merci mais bon je fais quoi moi après cette discussion de spécialistes

Je sais pas quelle version je dois comprendre, lol

Merci de votre participation en tous cas

ha oui au fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

     for i:=1 to length(chaine) do

Une chaine ça commence pas à 0 ? heu un tableau ?

Et si tu avais ça dans ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Edit2.text:='pied*velo*auto*train*avion*bateau'; //en enlevant bateau uniquement

pour obtenir ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Edit2.text:='pied*velo*auto*train*avion*';

C'est que tu as oublié l'etoile "*" à la fin de bateau, car ma fonction est sensée récupérer d'une phrase source toutes les sous-chaines séparées par "*", mais il faut (dans ma fonction en tous cas) qu'une étoile soit à la fin de la phrase source (si j'utilise l'étoile comme séparateur bien sûr^^).

Là par exemple dans le premier code d'Anapurna :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.text:='pied*velo*auto*train'; //içi

EDIT :

J'ai testé le premier code de cincap ça marche Nickel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.BTestClick(Sender: TObject);
var
MaListe: TStringList;
i: Integer;
cont: string;
valeur: string;
begin
MaListe:=TStringList.Create;
 
cont := Edit1.text; // ou = à  'pied*velo*auto*train';
 
MaListe.Text:=StringReplace(cont,'*',#13#10,[rfReplaceAll]);
for i:= 0 to MaListe.Count-1 do begin
valeur:= MaListe.Strings[i];
ShowMessage(valeur);
end;
FreeAndNil(MaListe);
end;

Mais si j'avais mis une fonction c'est parce que je veux recevoir le résultat dans un tableau en retour de la fonction ^^ c'est pas le cas avec Showmessage.

**ALWEBER** · 30/01/2009, 13h55

Je suis reparti de ton programme. Voilà le résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
unit Ex01a;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  Tmaliste = array of ShortString;
 
  TForm1 = class(TForm)
    Button1: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  temp:ShortString;
  tableau:Tmaliste;
 
implementation
 
{$R *.DFM}
 
//... Sépare les mots d'une chaine qui sont liés par le séparateur indiqué .....................
function separe(chaine : ShortString; sep : char) : Tmaliste;
var i1,taille,position:integer;
    mot:ShortString;
    t1 :Tmaliste;
begin
  taille := 1 ;
  for i1 := 1 to Length(chaine)-1 do
    if chaine[i1] = sep then
      taille := taille + 1 ;
  SetLength (t1, taille) ;
  position := -1 ;
  while pos(sep,chaine) > 0 do // tant que l'on trouve un séparateur
  begin
    // extraction du mot
    mot := copy (chaine,1,pos (sep,chaine)-1) ;
    // Suppression de la partie traitée
    delete (chaine,1,pos (sep,chaine)) ;
    position := position + 1 ;
    t1[position] := mot ;
  end ;
  if chaine <> '' then
  begin
    position := position + 1 ;
    t1[position] := chaine ;
  end ;
  result := t1 ;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i1 : integer ;
begin
  Edit1.text:='pied*velo*auto*train*';
  tableau:=separe(Edit1.text,'*');
  temp := '' ;
  for i1 := 0 to SizeOf (tableau)-1 do
    temp := temp + ' ' + tableau[i1] ;
  Label2.caption := temp ;
end;
end.

**dragonno** · 30/01/2009, 14h10

ALWEBER Impecc !!!

Bon je prend^^
Merci à tous, que c'est super ces échanges d'idées, vive vous et développez.com !!!!!!!!!

**cincap** · 30/01/2009, 15h01

@ Dragonno, je n'ai pas oublié *, c'est uniquement pour tester ta fonction.

@ ALWEBER, avec ta fonction, j'ai un bug en effet si j'ajoute un élément dans le Tedit, il ne s'affiche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Edit1.text:='pied*velo*auto*train*avion*';

Même chôse si on supprime !

@+,

Cincap

**cincap** · 30/01/2009, 15h21

@ Dragonno, en reprenant mon exemple sans fonction et en éliminant le résultat par message et le faire apparaître dans un Tlabel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
procedure TForm1.BTestClick(Sender: TObject);
var
MaListe: TStringList;
i: Integer;
cont: string;
valeur: string;
begin
MaListe:=TStringList.Create;
 
cont := edit1.text ;//'pied*velo*auto*train';
 
MaListe.Text:=StringReplace(cont,'*',#13#10,[rfReplaceAll]);
for i:= 0 to MaListe.Count-1 do begin
valeur:= MaListe.Strings[I];
//ShowMessage(valeur);
 
label1.Caption := MaListe.text;
end;
FreeAndNil(MaListe);
end;

Le résultat est affiché dans le label sous forme d'un tableau !

@+,

Cincap

**petitcoucou31** · 30/01/2009, 16h17

salut

Pour Cincap.

@ petitcoucou31, il faut un Tmemo et non Tedit pour l'utilisation de ta fonction, sinon c'est correct.

Désolé mais, je comprends pas ce que tu dis ?
procedure ExtraitInfo(sep:char;chaine:string; var resultat:Tstringlist); n'a ni besoin d'un Tmemo ou d'un Tedit.

Elle peut s'appliquer avec un Tedit ?

elle reçoit un String , donc récupère tout ce qui est de type string, TLabel , Tedit , Tmemo.. et retourne une liste de string.

bye

**cincap** · 30/01/2009, 18h49

@ petitcoucou31, voila pourquoi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var L:Tstringlist;
    i:integer;
begin
    L:=Tstringlist.Create;
    ExtraitInfo('*','toto*tata*tutut*yyiy',L);
    for i:=0 to L.count-1 do memo1.Lines.add(L[i]);    L.Free;
end;

Avec ta fonction, le résultat indique le nom + l'* en utilisant ce texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
//edit1.text := pied*velo*auto*train*avion*

procedure TForm1.Button1Click(Sender: TObject);
var L:Tstringlist;
    i:integer;
begin
    L:=Tstringlist.Create;
    ExtraitInfo('*',edit1.text,L);
    for i:=0 to L.count-1 do memo1.Lines.add(L[i]);    L.Free;
end;

Excuse, mais je ne vois pas comment afficher le résultat dans un Tlabel.

@+,

Cincap

**dragonno** · 30/01/2009, 19h57

@ Dragonno, en reprenant mon exemple sans fonction et en éliminant le résultat par message et le faire apparaître dans un Tlabel.

Okkkkk (se réveille^^) merci beaucoup cincap

Vous êtes vraiment super, les programmeurs de ce forum ça c'est sûr !

**petitcoucou31** · 30/01/2009, 20h35

re

je ne prenais pas bonne ligne exemple pied*velo*auto*train*avion*
mais j'avais pas vu que la ligne se terminé par un "*" !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure ExtraitInfo(sep:char;chaine:string; var resultat:Tstringlist);
var temp:string;
    P:integer;
begin
   while chaine<>'' do
   begin
       temp:=chaine;
       P:=pos(sep,chaine);
       if P=0 then chaine:=''
       else
       begin
           delete(chaine,1,P);
           delete(temp,P,length(temp));
       end;
       resultat.Add(temp);
   end;
end;

// valeur du edit1.text:=pied*velo*auto*train*avion*
procedure TForm1.Button1Click(Sender: TObject);
var L:Tstringlist;
    i:integer;
begin
    memo1.clear;
    edit1.Text:='pied*velo*auto*train*avion*';
    L:=Tstringlist.Create;
    ExtraitInfo('*',edit1.text,L);
    for i:=0 to L.count-1 do
    begin
        memo1.Lines.add(L[i]);
        edit2.Text:=edit2.Text+' '+L[i];
        label2.caption:=label2.caption+' '+L[i];
    end;
    L.Free;
end;

Dans le code tu as l'affichage pour un Tlabel, ou un Tedit..
Le résultat est stocké sous forme de liste dans L.

bye.

**dragonno** · 30/01/2009, 20h37

Merci titcoucou ^^

Que c'est super^^ me voilà avec plein de méthodes

c'est l'abondance héhé

**cincap** · 31/01/2009, 12h56

Bonjour à toutes et à tous,

@ Petitcoucou31, je constate avec ta fonction que c'est vrai que le résultat attendu est correct avec le TMemo parceque, tu prends la peine d'éffacer le 1er texte à chaque click du TButton.

Par contre avec Tedit et Tlabel, déja les mots s'affichent avec un décalage par rapport au bord et si on ajoute un mot terminé par *, dans le Tedit, tous les mots sont affichés à la suite des 1er ainsi que dans le TLabel même problème si on efface un mot.

Ceci étant dit, je pense que Dragonno a trouvé son bonheur dans toutes ses solutions.

@+,

Cincap

fonction mal faite ?

Delphi

Discussions similaires

Partager

Partager