Discussion :

[titiyo]

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

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)

le code lignegrid := copy(lig,position,pos(';',lig)-1); 'ligne grid' est la ligne du tableau mais je l'ai racourci pour la comprehension

merci d'avance

[mika]

N'aurait tu pas oublier d'initialiser la variable "position"
de plus to i c'est à quo

N'est ce pas plutot

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
 
var maligne : string;
i : integer
 
ligne := 0;
  repeat 
     maligne := '';
     Colonne := 0;
     ligne := ligne+1;
     readln(f,lig); //la ligne correspondante// 
     For i := 0 to length(lig)-1 do 
      begin
       IF  Lig[i] <> ';' then 
        maligne := maligne +  lig[i] ;
       Else
        begin
          ligneGrid[ligne,Colonne] := maligne;
          colonne := colonne + 1;
          maligne := '';
        End;
      End;
    until EOF(f);

JE pense que je ne suis pas loin. Mais n'ayant pas de delphi devant moi, je ne peux pas tester

[Pedro]

Salut
non en Delphi, une chaine de caractère commence au caractère 1...

Donc ça donne:

Code :

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

1
2
3
4
 
...
for i:=1 to length(Lig) do
...

Voilà...

[titiyo]

merci sa marche parfaitement