Discussion :

[naazih]

soit une fichier text F1:

Code :

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

boujour tout le monde

En connaissant l'indice du début d'un sous mot ("tout" par exemple) ainsi que sa longueur,je voudrais récuperer le sous mot dans un Edit
qlq1 pourra me dire comment faire.
Merci

[sjrd]

Avec la propriété Text et la fonction Copy :

Code :

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

Edit1.Text := Copy(ContenuFichier, DebutMot, LongueurMot);

Tâche de retenir cette fonction Copy : elle est extrêmement utile et très souvent utilisée.

[Clorish]

Sinon, il existe toujours la solution toute bete de la boucle for :

Code :

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

1
2
Str := '';
For i := StartPos to EndPos do Str := Str + Ligne[i]

Pour traiter le cas de plusieurs ligne, il est interessant d'utiliser la property Text d'un TStringList.

Elle retourne l'integralité des lignes concaténées entre elle mais separées a l'aide des caracteres #13#10.