Le code suivant sauve le contenu du composant 'Memo1' dans le fichier 'C:\MonFichier' quand l'utilisateur appuie sur le 'Button1' de la Form:
procedure TForm1.Button1Click(Sender: TObject);
Var
F : TextFile ;
Stg : string ;
Begin
AssignFile(F,'C:\MonFichier.txt') ;
Stg := Memo1.Text ;
Append(F) ;
Writeln(F, Stg) ;
CloseFile(F) ;
End;
|
Je ne suis pas capable de te proposer une méthode de traduction efficace pour un texte entier, car la seule méthode possible serait la traduction au mot à mot, donc pas très exacte...
Du moins, si tu veux faire un dictionnaire traducteur pour traduire un seul mot à la fois, va sur ce site dans la rubrique Dictionnaire :
[ Lien ]Tu peux télécharger le source ici (il n'est pas de moi mais de Yoann) :
[ Lien ]@+ Bonne Prog !
Nico
