Discussion :

[vbcasimir]

Bonjour ,

Je ne comprends ce qui ne va pas dans mon code qui pourtant me parait simple ....

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
 
 
procedure TForm1.Button2Click(Sender: TObject);
var chemin   : string;
    ListExe : TStringList;
    x , New , Neww: integer;
 
begin
chemin := 'C:\Projet_Delphi\PlaningExe\cheminExe.txt';
OpenDialog1.Execute ;
Label1.Caption := OpenDialog1.FileName;
EcrireDansFichier (chemin , ComboBox1.Text + ':' + ComboBox2.Text + ':' + ComboBox3.Text , OpenDialog1.FileName);
Button1.enabled := true;
ListExe := RecupProgExe (chemin) ;
 
//for x := 0 to ListExe.count - 1 do
   New := pos(';',ListExe[0]);
   Neww := Length(ListExe[0]);
   Edit2.Text := DELETE (ListExe[0] , New , Neww);
 
//listBox1.Items.AddStrings(ListExe);
end;

donc pour résumer je recupère dans un fichier des données que je transmets à un TStringList aprés quoi je souhaiterais découper mes lignes en deux grâce au séparateur ";" ...

J'utilise donc le fonction 'POS' et 'DELETE' mais apparemment lorsque je lance l'execution il me répond le message :

Code :

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

1
2
3
 
 
"un objet constante ne peut pas être passé comme paramétre var"

alors j'ai donc essayé d'afficher au moins la position du caractère ";" dans ma chaine avec la fonction POS pour ça tout se passe bien mais dés lors où j'utilise la fonction DELETE (voir le code ci-dessus) là j'ai le massage d'erreur ???

[m.nico]

Code :

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

1
2
3
4
5
6
 
s : string 
..
   s := ListExe.strings[0];
    DELETE(s, New , Neww);
   Edit2.Text := s;

[Bloon]

Les paramètres var attendent une adresse de variable. En accèdant à ListExe[0], tu passes par la propriété strings du TStringList, soit en fait une fonction qui renvoie un string.

Il faut donc passer par une variable intermédiaire ou bien utiliser une fonction utilitaire pour faire la séparation, comme par exemple :

http://delphi.developpez.com/faq/?pa...chaine#explode

(attention, le code proposé a été mal retranscrit, il faut remplacer les <i> par [i] tant que c'est pas corrigé)

Bloon

[vbcasimir]

effectivement ça passe ... mais pourquoi faut-il le mettre sous cette forme j'ai souvent remarqué avec Delphi qu'il faut déclarer avant dans une variable avant de faire "passer" dans certains objets ..

Par ailleurs j'ai laissé sous la forme "ListExe[0]" au lieu de "ListExe.strings[0]" et ça fonctionne quand même ... les deux formes sont - elles équivalentes ?

Merci

[m.nico]

Par ailleurs j'ai laissé sous la forme "ListExe[0]" au lieu de "ListExe.strings[0]" et ça fonctionne quand même ... les deux formes sont - elles équivalentes ?

aide en ligne

TStringList.Strings

Enumère des chaînes référencées par un indice de base zéro.

property Strings[Index: Integer]: string; default;

Description

La propriété Strings permet de lire ou de modifier une chaîne située à une position donnée. Index indique la position de la chaîne, sachant que la première chaîne a l'indice 0, la seconde l'indice 1, etc. Pour trouver une chaîne donnée dans la liste, utilisez la méthode IndexOf.

Strings est la propriété par défaut des objets liste de chaînes. Il est donc possible d'omettre l'identificateur Strings pour accéder à la propriété Strings d'un objet liste de chaînes. Par exemple, les deux lignes suivantes sont légales et font la même chose*:

MyStringList.Strings[0] := 'Voici la première chaîne';

MyStringList[0] := 'Voici la première chaîne';

[Bloon]

Par ailleurs j'ai laissé sous la forme "ListExe[0]" au lieu de "ListExe.strings[0]" et ça fonctionne quand même ... les deux formes sont - elles équivalentes ?

Oui, car la propriété Strings de TStrings est déclarée comme propriété par défaut :

Code :

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

property Strings[Index: Integer]: string read Get write Put; default;

Bloon

[vbcasimir]

ok je comprends mieux ....

Merci beaucoup :o