Discussion :

[Opera140]

Salut !

Je cherche à lire un fichier .txt et a stocker ses informations dans un tableaux de chaines pour les réutiliser plus tard.
Pour tester si le programme lit bien mon fichier, je veux retranscrire le contenu dans un autre fichier .txt.
J'ai donc écrit ceci :

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
23
24
25
26
 
var
Ligne : string;
Liste, Liste2 :Textfile;
TListe : array of string;
i : Integer;
 
.
.
.
 
AssignFile(Liste,'C:\MonPath\Liste.txt');
Reset(Liste);
AssignFile(Liste2,'C:\MonPath\Liste2.txt');
Rewrite(Liste2);
i:= 0;
while not EOF(Liste) do
  begin
    Readln(Liste, Ligne);
    TListe[i] := Ligne;
    Writeln(Liste2, TListe[i]);
     i := i+1;
  end;
.
.
.

Et donc ça ne marche pas.
J'ai essayer en créant le fichier avant et en utilisant Append() au lieu de Rewrite(), mais l'effet est le même.

Qu'est ce qui cloche ?

[Okaryn]

Tu ne redimensionnes pas ton tableau TListe, il faut que tu fasses un SetLength(TListe, i+1) avant d'utiliser la ligne TListe[i] := Ligne;

Autre chose, utilises plutôt inc(i) que i := i+1 (plus rapide)

[Opera140]

J'ai une ligne SetLength(TListe, 100);
Sachant que ma liste ne contiendra jamais autant d'entrées.
Merci pour le inc(i), je ne connaissais pas cette commande en Delphi

[Okaryn]

Ah oui, un truc tout bête, as-tu bien ajouté à la fin de ton code :

Code :

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

1
2
closefile(Liste);
closefile(liste2);

Sinon, il n'y a pas d'écriture dans liste2, juste sa création...

[anapurna]

salut

un autre conseil utilise les Tfilestream c'est mieux
plus facile a manipuler

@+ Phil

[Okaryn]

un autre conseil utilise les Tfilestream c'est mieux
plus facile a manipuler

Pour lire des lignes de texte, je trouve que l'utilisation des streams est beaucoup plus lourd qu'un simple TextFile qui n'a besoin que d'un ReadLn et WriteLn pour lire et écrire une ligne d'un coup.

Mais bon, je ne connais pas à fond les streams et je pense qu'il y a toujours besoin d'un buffer, donc nécessité de tester la longueur lue à chaque fois, etc...

[droggo]

Hi,

Autre chose, utilises plutôt inc(i) que i := i+1 (plus rapide)

D'où te vient cette certitude ?

D'un a priori, pas d'une mesure, car en allant voir de plus près, le code généré est le même.

Quoi qu'il en soit, pour un programme lisant et écrivant des lignes de texte dans des fichiers, c'est absolument négligeable.

[Okaryn]

C'est sur que cela est négligeable, mais c'est une bonne habitude à prendre.

Cela vient d'une mesure, inc(I) est environ 50% plus rapide : il suffit de faire un test comparatif sur une boucle.

[droggo]

Hi,

C'est sur que cela est négligeable, mais c'est une bonne habitude à prendre.

Cela vient d'une mesure, inc(I) est environ 50% plus rapide : il suffit de faire un test comparatif sur une boucle.

Mois j'ai le même temps d'exécution, aux fluctuations près, dues à l'utilisation du cpu par les autres programmes.

La mesure est faite avec des boucles assez longues pour que les temps soient significatifs. Ces temps sont mesurés avec les valeurs renvoyées par QueryPerformanceCounter.

Et comme je l'ai déjà dit, le code généré est le même, avec ma version Delphi en tout cas, et bien entendu en tenant compte des options de compilation.

[Okaryn]

Voici ma procédure de test avec Turbo Delphi Win32 (2006) :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  I : integer;
  dStart, dEnd :Int64;
begin
  I := 0;
  QueryPerformanceCounter(dStart);
  While I < 100000000 do
    inc(I);
  QueryPerformanceCounter(dEnd);
  Edit1.Text := IntToSTr(dend-dStart);
  I := 0;
  QueryPerformanceCounter(dStart);
  While I < 100000000 do
    I := I + 1;
  QueryPerformanceCounter(dEnd);
  Edit2.Text := IntToSTr(dend-dStart);
end;

Et j'obtiens les valeurs suivantes (peut d'écarts sur une 20aines de tests) :
Inc() = 326682
I+1 = 505300

Pour les options de compilation, je n'ai pas changé le paramétrage par défaut.

[rv26t]

Bonjour,

L'aide de Delphi l'indique.

Inc(X) équivaut à l'instruction X := X +1 et Inc(X, N) correspond à l'instruction X := X + N. En revanche, Inc génère un code optimisé, particulièrement utile dans les boucles à exécution intensive.

A+, Hervé.