Le meilleur moyen d'afficher un *.txt dans un TMemo ?Résolu

Question

Bonjour

je débute en Delphi et je m'entraine à faire des ptits trucs tout concons pour le moment. J'ai voulu ouvrir un fichier texte et en afficher le contenu dans un TMemo. En prenant le code de Filipe35 sur CS ça me donne ça :

procedure StringFromFile(const FileName: TFileName; var S: TMemo);
var
  F: TextFile;
  S1: string;
begin
  S.Text := EmptyStr;
  AssignFile(F, FileName);
  Reset(F);
  try
    while not Eof(F) do
    begin
      ReadLn(F, S1);
      S.Text := S.Text + S1 + chr(13) + chr(10);
    end;
  finally
    CloseFile(F);
  end;
end;

J'ai cependant remarqué que pour un fichier de 8Ko ça met quand même un peu trop de temps à s'effectuer...

Quelqu'un saurait-il comment faire pour améliorer la rapidité ? Je sais qu'on peut passer par un RichEdit et Loadfromfile. Mais juste dans un but didactique je voudrais savoir si c'est possible avec un TMemo. :)

Merci pour vos idées.

jlen100 · Accepted Answer

salut,

le meilleur moyen pour charger un Tmemo &#224; partir d'un fichier texte est
d'utiliser la m&#233;thode loadfromfile elle initialise la propri&#233;t&#233; lines
et charge la totalite du fichier en une seule fois.

Memo1.lines.loadfromfile(FileName);

@+

jlen

cs_Squallou · Answer

Ha bah oui tiens -_-
Pourtant j'avais essayé le Loadfromfiles avec mon Memo mais ça avait pas marché...
J'ai du foiré qqchose lol

Merci bcp !!! :)

jlen100 · Answer

il faut surtout que ton chemin soit bon!!

jlen100 · Answer

une fa&#231;on de tester:

sur uneform tu mets :

-1 bouton

-1 Tmemo

-1 opendialog

et dans le on click du bouton tu mets:

procedure TForm1.Button1Click(Sender: TObject);

begin

with opendialog1 do

begin

execute;

memo1.Lines.LoadFromFile(filename);

end;

end;



@+

jlen

cs_Squallou · Answer

heu justement si on met ça ya pas de gestion d'erreur là.

Tu executes le OpenDialog et tu lui dis de placer le contenu du fichier dans le Memo. Mais si tu fais Annuler par exemple (donc pas de nom de fichier) t'as une erreur (pas méchante mais bon).

Si on met ça plutot :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    begin
    Memo1.lines.loadfromfile(OpenDialog1.FileName);
    end;
end;

ça teste bien que le nom de fichier ne soit pas vide. (ça met quand même une erreur si on entre manuellement un nom qui n'existe pas. Mais bon c assez logique de laisser ça :)).

jlen100 · Answer

oui effectivement il vaut iueux tester le filename tu peux aussi
rajouter un fileexists(filename) pour varifier si le fichier est valide

    if (OpenDialog1.Execute)and(FileExists(OpenDialog1.FileName) then

    Memo1.lines.loadfromfile(OpenDialog1.FileName);

@+

jlen

f0xi · Answer

T'es fatigué JLen! with OpenDialog1 do if Execute and FileExists(FileName) then Memo1.Lines.LoadFromFiles(FileName); tout simplement. faut aussi lui montrer comment ecrire un code rapide et clair. note importante sur le code de jlen, "Execute" doit etre le premier elements de la condition sinon y'auras un bug.

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

jlen100 · Answer

oui mais les parenthese &#231;a fait pas de mal!! des fois que DELPHI ne
comprenne pas tout (reaarque c'est une habitude que me vient du C ou si
tu ne mets pas de parentheses le and n'a pas tout &#224; fait la m&#234;me
fonction)

jlen100 · Answer

d'autre part je n'ai pris pris la peine de le r&#233;&#233;crire avec le with
(bien que ce soit ce que je fasse d'habitude , surtout histoire de ne
pas avoir &#224; r&#233;&#233;crire les opendialog1.....)

jlen100 · Answer

pour le C j'ai chercher pendant un moment pourquoi un test ne fonctionnait c'&#233;atit &#224; peut pr&#232;s &#231;a :

        if !(data[2]==171) checksum1=1; au lieu de 

        if (!(data[2]==171)) checksum1=1;

ce qui donne exactement l'effet inverse de celui escompt&#233;!!

f0xi · Answer

oui le C c'est comme en PHP (bien qu'en PHP tu sois obligé de mettre les () dans la condition). en plus, contrairemen au delphi ou au php qui generalement t'injure en cas d'erreur, le C compile bourrin. d'ailleurs (habitude du PHP) quand j'ecris une condition en C++ je protege tout de cette façon : if (condition) { methode; } car la aussi les bug dus au mauvais placement ou oublis des { } ça peu faire mal. delphi est trop strict pour qu'une erreur arrive a ce niveau. et je prefere de loin sa phylosophie a celle des C-Like. le pire c'est les resultats ambigu en PHP (existe surrement aussi en C et C++) quand tu doit tester une egalitée qui doit necessite l'utilisation de l'operteur "trop-carrement-egale-a" === ... ça aussi ça fout bien la merde, merci les variants qui peuvent renvoyer des boolean qui ne sont pas des boolean. mais bien sur, toujours proteger les conditions et meme les operations avec des parentheses. ne jamais faire confiance a la prioritée des operateurs. 5 * 5 / 2 = 5 ou 12.5 (selon les humeurs des langages et des compilateurs) (5 * 5) / 2 = 5 5 * ( 5 / 2) = 12.5 par contre ici : if Execute and FileExists(FileName) then les parentheses ne sont pas necessaire. vus que c'est du Delphi et que Delphi comprend bien cela et le fait bien. en C,C++, JavaScript et PHP il faudrait l'ecrire comme cela en effet : if (Execute && FileExists(FileName)) { } et en Python : Flags : DoitPlanterTouteLes10Secondes UtiliseXML FaitNimporteQuoi PythonAND : execute filename (ça ce voit que j'aime pas le python ...) aaaah les parentheses ... c'est souvent qu'on en loupe une... mais heureusement que Delphi nous avertis en cas de probleme.

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

jlen100 · Answer

C'est vrai que DELPHI renvoyant des boolean pour les fonctions execute
et fileexists les parentheses ne sont pas n&#233;cessaires , ce qui ne
serait pas le cas si les varleurs &#233;taient des strings par exemple ou
dans ce cas il aurait fallut les mettre

Comme sur les projets je passe alternativement du DELPHI au C et que C
ne connait pas les booleans j'ai pris l'hatidude de proteger par des
parentheses sans trop me poser de question (de toutes fa&#231;ons en
DELPHI  le fait de mettre des parentheses ne modifie pas le code )

pour le l'operateur == en C &#231;a c'est le vrai pi&#233;ge:

1) en Delphi le test d'&#233;galit&#233; c'est = --> quand on repasse en C il est fr&#233;quent d'oublier de le doubler

2) C &#233;tant tr&#232;s tol&#233;rant (trop?) et que l'on peut faire des op&#233;rations
dans les conditions le compilateur se moquant &#233;perduement de la
coh&#233;rence.

3) cela revient &#224; &#233;crire 1=1 et la condition est toujours v&#233;rifi&#233;e

de m&#234;me si l'on fait un and bitwise au lieu d'un et logique le
compilateur l'accepte sauf que la condition ne sera v&#233;rifi&#233;e que si le
resultat <>0et que  la variable est modifi&#233;e!!

f0xi · Answer

tout a fait, c'est pour cela que je n'aime pas trop les comparaison d'egalitée en C tout comme en PHP ... on oublis un "=" et pouf gros bug et aprés vas retrouver l'erreur.

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

Le meilleur moyen d'afficher un *.txt dans un TMemo ?

13 réponses

Votre réponse

Discussions similaires