Retrouvailles avec le Pascal

Question

Bonjour &#224; tous !

C'est mon premier message et je voudrais me pr&#233;senter. J'ai fait du
Turbo-Pascal en amateur (mais &#224; un niveau correct, je crois) il y a 10
ans et je me retrouve en face de Delphi pour la premi&#232;re fois. C'est du
bonheur et c'est du d&#233;sarroi ! Je commence par essayer de me faire une
petite application o&#249; je rassemblerai toutes les op&#233;rations de base
pour me d&#233;rouiller un peu.

J'ai commenc&#233; facile : par un bouton qui &#233;crit "Bonsoir" dans un label
quand le texte du label est "Bonjour" et vice-versa. J'ai cr&#233;&#233; ensuite
un autre bouton qui permet de fermer mon application. Puis je lui ai
fait afficher une fen&#234;tre de confirmation avant que cette fermeture ait
lieu et r&#233;agir selon la r&#233;ponse. Si vous avez des id&#233;es d'exercices,
n'h&#233;sitez pas &#224; m'en proposer : cela me sera bien utile.

Le prochain exercice que je me donne porte sur les fichiers. J'ai
d&#233;couvert que la proc&#233;dure Assign est devenue Assignfile et que la
commande close est devenue closefile. J'ai r&#233;ussi &#224; afficher dans un
composant Richedit le contenu d'un fichier texte (de type textfile)
avec la vieille m&#233;thode d'une boucle qui lit ligne &#224; ligne jusqu'&#224; la
fin du fichier. Mais maintenant j'aimerais bien faire une lecture moins
primaire et utiliser les capacit&#233;s RTF... Je me dis qu'il devrait bien
y avoir moyen de charger un fichier Word dans cette sacr&#233;e boite
RichEdit mais je n'arrive pas &#224; trouver la technique. J'ai d&#233;couvert un
nouveau type TStrings qui para&#238;t &#234;tre un compos&#233; (compos&#233; comment ?,
j'en ai aucune id&#233;e !) de String. Il m'a sembl&#233; que je devais chercher
de ce c&#244;t&#233;-l&#224;, mais j'ai peut-&#234;tre compl&#232;tement faux.

Au d&#233;but, j'ai cru que la propri&#233;t&#233; RichEdit.text &#233;tait justement du type TStrings et qu'il me suffirait d'&#233;crire :

var f:file of Tstrings;

    texte : Tstrings;

procedure lecture;

begin

assignfile(f,'nom de fichier');

reset (f);

read(f,texte);

closefile(f);

richedit.text:=texte;

end;

Mais c'&#233;tait trop facile ! richedit.text est du type Tcaption. Alors
j'ai tend&#233; de d&#233;clarer f comme un fichier de type tcaption mais c'est
impossible et je suis bloqu&#233;... Qui peut m'aider ?

D&#233;sol&#233; de poser une question aussi simpliste...

Merci d'avance !

Mille-Pattes

jlen100 · Answer

salut ,

pour debuter prend l'exemple de l'aide:

var 



  F: TextFile;

  S: string;

begin

  if OpenDialog1.Execute
then           
{ Affichage de la bo&#238;te de dialogue d'ouverture }

  begin

    AssignFile(F, OpenDialog1.FileName); { Fichier s&#233;lectionn&#233; dans la bo&#238;te de dialogue }

    Reset(F);

    Readln(F,
S);                       
{ Lecture de la premi&#232;re ligne du fichier }

    Edit1.Text :=
S;                    
{ Introduction de la cha&#238;ne dans un contr&#244;le TEdit }

    CloseFile(F);



  end;

end;

n'oublie pas de poser un opendialog sur ta fiche (barre de composants -->dialog--opendialog)

en fait un Tsrings est une liste de string et  TCaption = type string;

pour le richedit utilise plutot la proprietes lines plutot que texte .
La proptiete lines est un Tstrings qui offre plus de possibilites. (vas
voir l'aide aux rubrique Trichedit et Tsrings) en particulier tu peux
recharger un fichier texte complet en faisant :

 richedit.lines.LoadFromFile(OpenDialog1.FileName);

bonne prog

cs_MillePattes · Answer

Merci beaucoup jlen100 ! Effectivement richedit.lines est bien meilleur
et c'est bien s&#251;r ce qu'il me fallait. Merci aussi pour le truc du
composant Opendialog qui est bien commode. Mais (corrige-moi si je dis
une b&#234;tise) il n'est pas essentiel, c'est d'accord ? Il suffirait de
mettre le chemin du fichier &#224; ouvrir dans une cha&#238;ne et loadfromfile
marcherait aussi bien. J'ai vu qu'on pouvait toujours poser une
interruption de messages d'erreur comme il y a 10 ans et puis la
r&#233;cup&#233;rer et la traiter s'il y a un ennui d'ouverture de fichier.

Mille-Pattes

jlen100 · Answer

tout &#224; fait d'accord l'opendialog n'est pas indispensable et tu peux
fort mettre le chemin du fichier directement a la place filename . un
des avantages d'opendialog est de pouvoir recuperer facilement le
chemin du fichier et son extension (vas voir dans les prorpietes tu
trouveras:

defautext ;filterext; qui permettent de n'afficheer que les fichiers
voulus; initialdir qui permet de choisir le dossier par defaut);

pour le IOresult (si c'est ce que tu utilises) je ne crois pas que
cette fonction marche avec le loadfromfile (il faudrait essayer) il
vaut mieux utiliiser la fonction fileexists pour verifier l'existance
du fichier:

function FileExists(const FileName: string): Boolean;

avant de tenter un acces au fichier 

if  FileExists('nomdufichier') then

  richedit.lines.LoadFromFile('nomdufichier)

else     ShowMessage('Impossible de trouver ' nomdufichier '.')

tu peux aussi utiliser FileSearch('nomdufichier',liste de dossier) pour verifier l'existence et le chemin du fichier.

cs_MillePattes · Answer

G&#233;nial ! FileExists me convient tout &#224; fait. Je me souviens que je
m'&#233;tais fait (comme tout le monde &#224; l'&#233;poque) une petite unit&#233; qui
g&#233;rait les fichiers et o&#249; j'avais &#233;crit bien s&#251;r la fonction
Existe_Fichier qui &#233;tait exactement la m&#234;me... Rien que cette petite
discussion avec toi m'a beaucoup appris, parce que je nage pas mal dans
l'aide...

Mille-Pattes

jlen100 · Answer

c'est vrai qu'au depart quand on ne sait pas trop quoi chercher il faudrait une aide pour utiliser l'aide!!

surtout que celle de la version 2005 manque serieusement d'exemples je
lui prfer nettement celle de delphi7. mais bon avec un peu d'habitude
&#231;a va pas trop mal

jlen100 · Answer

au fait tu peux intercepter une erreur d'execution sur loadfromfile en faisant:

     try


       richedit.lines.LoadFromFile('nomdu fichier');


     except    // interception de l'erreur d'ex&#233;cution

          MessageDlg('Fichier
'+'nomdu fichier'+' introuvable'  , mtError    ,
[mbOk], 0);         exit


      end      else

      begin

            //code de traitement si le fichier a ete corectement charg&#233;;

    end;

   finally   TempList.Free;     end;

cs_MillePattes · Answer

Merci encore ! Je vais essayer &#231;a ! Je trouve ton message &#224; 1h30 du matin : je verrai &#231;a demain !

Merci de ton aide !

Mille-Pattes

Retrouvailles avec le Pascal

7 réponses

Votre réponse

Discussions similaires