[TP] probleme avec les texts

Je travaille sur un programme qui cherche tous les fichiers text. Le problème c'est que ce programme m'affiche le nom du fichier text avec .txt

Voici le programme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure liste; var fichier:searchrec; t:string; begin clrscr;   findfirst('d:\tp\*.txt',archive,fichier); while doserror=0do begin writeln(fichier.name); findnext(fichier); end; readln; end;

---

que dois je faire pour ne pas afficher les nom sans .txt et merci
et merci;)

Dans fichier.name, il faut recherches la dernière occurrence du caractère '.' et supprimer à partir de ce caractère jusqu'à la fin. Regarde les fonctions pos, delete et copy.

Ca veut dire que je dois créer une fonction qui cherche la position de .
puis une autre qui copie juste le nom sans le .txt.
Et pour chercher le point, je dois travailler avec son code ascii.
Ok je vais essayer
merci MR;)
merci;)

Code:

---

1 2 3 4

delete(fichier.name,l-4,4); write(fichier.name);; end.

---

ca marche probleme resolu
merci MR le moderateur:) :)

Et si je veux que les noms de texts soient en ordre, dois-je les décaler dans un tableau ?

Citation:

---

Citation:

---

Oué, et ensuite appliquer un algo de tri

---

---