Discussion :

[Didier L]

Bonsoir,

Je travaille en delphi 7,
Je n'ai pas trouvé de fonction "Split".
J'ai donc décidé de recréé cette fonction.
Mais voila, comment passer en paramètre un tableau dynamique, ou récupéré ce tableau comme résultat de ma fonction.

Je n'arrive pas à déclaré mon tableau en type de retour de ma fonction.
Si je déclare un paramètre de type tableau, je ne peux pas l'initialisé avec "copy".
Je travaille donc avec un tableau dynamique en local et quand je veux en faire la copie dans mon paramètre avec "Copy",a la compilation si il me dit qu'il y a incompatibilité de type entre les deux tableau

Si quelqu'un à une solution je suis preneur

Merci d'avance

[Bestiol]

Si j'ai bien compris ton problème, la solution est en fait de déclarer un type particulier pour ton tableau dynamique :

Code :

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

1
2
type
  TMonTableau = array of string;

et ensuite de déclarer ta fonction split avec ce nouveau type :

Code :

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

function Split(Texte: String; Separateur: Char): TMonTableau;

Bonne prog'
Bestiol.

[cpdump]

Il y a la fonction ExtractStrings pour splitter une chaine selon des séparateurs

[Didier L]

MERCI

c'est extra.

Juste une dernière petite question.
Si j'ai deux tableaux déclaré avec mon nouveau type, quelle syntaxe pour l'affectation est la plus propre? (Sachant que les deux marchent)

Code :

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

1
2
3
4
 
  Split:=TableauTmp;
ou
  Split:=Copy(TableauTmp);

Et encore MERCI!!!!!

Merci aussi pour la syntaxe ExtractStrings mais qui est arrivée après le dev de ma fonction split publiée ci dessous:

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
 
Type
  MesTableaux = Array of string;
 
Function Split(Texte:String;Separateur:Char) : MesTableaux;
Var
  i : Integer;
  P : Integer;
  TableauTmp : MesTableaux;
Begin
    {Initialise le tableaux}
    TableauTmp:=Copy(TableauTmp,High(TableauTmp)+1,0);
    I:=0;
    P:= Pos(Separateur,Texte);
    If P>0 then
    Begin
      While P>0 do
      Begin
        SetLength(TableauTmp,i+1);
        TableauTmp[i]:=copy(Texte,0,P-1);
        Texte:=copy(Texte,P+Length(Separateur),Length(Texte));
        P:= Pos(Separateur,Texte);
        i:=i+1;
      End;
      SetLength(TableauTmp,i+1);
      TableauTmp[i]:=Texte;
    End
    Else
    Begin
      SetLength(TableauTmp,i+1);
      TableauTmp[i]:=Texte;
    End;
  Split:=TableauTmp;
End;

Utilisation :

Code :

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

1
2
3
4
5
 
Dim 
  MonResultat : MesTableaux;
 
MonResultat:=Split('Test1;Test2;Test3',';');

Merci aussi pour vos remarques éventuels sur le style
Je suis toujours preneur car je ne développe pas toujours en Delphi!