bonjour....
voila mon pb j'ai dans un fichier des renseignement que je desire rentre dans un grid par exemple . le fichier se presente de cette facon :
"truc";000001;"bidue";;;;;;;;;;;;;;;;;;;;;;;;;;;;;
"cc";000002;"toto";150;"TR";;;;;;;;;;;;;;;;;;;;;;;;;;;
"TRES";000003;"EXP";00015113;"DDD";1;05;"to";"";"1254";"";;;;;;;;;;;;;;;;;;;;;
etc......
je pb que je rencontre : c'est j'arrive a lire le fichier sequenciellement ligne par ligne ,et recupere ma ligne dans un string mais je n'arrive pas a determiner l'emplacement des separateurs ';' avec la fonction pos pour recuperer les donnéé entre et les rentre dans le tableau (ou grid) ligne tableau correspondant a la ligne fichier
le code lignegrid := copy(lig,position,pos(';',lig)-1); 'ligne grid' est la ligne du tableau mais je l'ai racourci pour la comprehension
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 reset(f); // f pour le fichier**** repeat readln(f,lig); //la ligne correspondante// for i := 0 to length(lig)-1 do begin lignegrid := copy(lig,position,pos(';',lig)-1); position := pos(';',lig)+1; end; until EOF(f); closefile(f)
merci d'avance
Partager