Discussion :

[dragonno]

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]

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]

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]

@ 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]

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]

@ 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