Discussion :

[Cheb09]

Bonjour,

une question surement un peu bête (mais bon je commence en Pascal alors ...):

Je dois ouvrir un fichier texte pour en lire le contenu et passer ce contenu à une fonction via un variable de type pChar, et franchement je n'ai pas encore trouvé comment procéder ... Le problème est que pour un fichier texte de quelques lignes cela fonctionne assez bien, mais pour des fichiers gros (plusieurs Ko, j'ai des plantages à l'execution). Je suppose que cela provient de l'utilisation d'un string qui n'est pas fait pour ça !

Voici comment j'ai procédé (il ya surement beaucoup plus élégant , je suis preneur si vous avez des idées) :

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
 
    myChar : Char;
    MonString : string;
 
    // Chargement du fichier txt
    AssignFile(myFile, 'fichier.txt');
    FileMode := fmOpenRead;
    ReSet(myFile);
 
    // Lecture octet par octet du fichier
    TailleDonnees:=1;
    while not Eof(myFile) do begin
      Read(myFile, myChar);
      MonString[i] := myChar;
      TailleDonnees:=i+1;
    end;
 
   // Appel de ma fonction
   ret := _MaFonctionQuiAttendUneChaineASCII(@MonString[1],TailleDonnees -1, status)

Merci de vos réponses
[Hauwke] Prière d'utiliser les balises de code afin d'amèliorer la lisibilité.[/Hauwke]

[Linkin]

Plutot que

Code :

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

1
2
 
MonString[i] := myChar;

j'aurais mis

Code :

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

1
2
 
MonString := MonString + myChar;

PS: Non testé

[Cheb09]

Effectivement c'est plus élégant, ça marche et ça ne plante pas.

J'hésite à placer ce topic en résolu, dans la mesure ou je cherche à optimiser mon code et je ne suis pas sur que la technique employée soit la meilleure ...

Quelqu'un a t'il d'autres idées ?

Seb

[Gilbert Geyer]

T'as pas essayé :

Code :

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

1
2
3
 
function StrPCopy(Dest: PChar; const Source: string): PChar; pour convertir un string en PChar
function StrPas(const Str: PChar): string; pour faire l'inverse

... ? ... pour plus de détails faire F1 sur ces fonctions.