Discussion :

[Gaadek]

Coucou, je sais, c'est une question de newvie, mais y'a des fois, on doute de tout, même du plus simple!!

Alors la question du jour est toute bête:

J'ai un treeview avec des noeuds nommé ainsi:
- Un mot ou une chaine (ex: 'root', 'Mon système',...)
- Un mot ou chaine suivie d'un nombre entre parenthèses (ex: 'Musique (0)', Test (10563)',...

J'aimerais, lorsque je lis le Txt d'un noeud isoler uniquement le nom, et pas les parenthèses avec ce qu'il y a dedans:
- 'root' -> 'root'
- 'test (5000)' -> 'test'
- etc...

Comment s'y prendre pour faire ça le + proprement possible ??

Parce que les boucles à gogo pour lire la position du caractère '(', c'est pas cool, d'autant plus que si le caractère '(' n'existe pas, la copie foire (StrLcopy(Dest,Source,Position_( - 1) )

Merci

[Pascal Jankowski]

Regarde dans l'aide la fonction POS

[Gaadek]

Pos + Delete = solution!

Aller, le code pour les fénants ou les débutants:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure machin;
var
  s:string;
  i: integer;
begin
  s := 'test (10)';
  i := Pos(s,'(');
 
  if (i>0) then
    Delete(s,i-1,50); // 50 pour être sur de tout effacer!
end;

[qi130]

Tu peux utiliser LeftStr à la place du Delete...

[Pascal Jankowski]

Pour les fainéants, les débutants et surtout pour moi qui suis les deux...

@Gradeek
Ta solution ne peut pas fonctionner car POS doit être renseignée différemment. En effet, on indique en premier la sous-chaîne que l'on recherche et ensuite la chaîne dans laquelle on recherche.

D'autre part si ta chaîne fait plus de 100 caractères et que '(' se trouve en 3ème position alors ta procédure échouera.
Utilise length pour être certain d'effacer le restant de ta chaîne.

Code :

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

1
2
3
4
5
  s := 'test (10)';
  i := Pos('(',s);
  if i > 0
    then Delete(s,i-1,length(s));

[Philbzh]

Plutot que de faire

Code :

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

Delete(s,i-1,length(s));

utilise plutot

Code :

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

1
2
3
4
5
6
7
 
  i := Pos('(',s);
  if i > 0 then 
  begin
    Delete(s,i,length(s));
    s:=trim(s);
  end;

sinon :
'test (10)'->'test' mais 'test(10)'->'tes'
et si ton string commence par '(' rien ne sera supprimer.

If count specifies more characters than remain starting at the index, Delete removes the rest of the string. If count is less than or equal to 0, no characters are deleted