monopoliy
Messages postés27Date d'inscriptionmardi 11 février 2003StatutMembreDernière intervention19 août 2003
-
5 mars 2003 à 13:27
Utilisateur anonyme -
14 mai 2011 à 13:09
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Le Zip n'est pas vide, il y a tout ce qu'il faut dedans pour compiler l'exécutable!!!
Merci de vous renseigner sur les activités d'un Site avant de vous y inscrire ça éviterait ce genre de situation ridicule.
Delphifr est un site de programmation ... par définition tu y trouveras que des codes-sources et de l'aide sur un problème de programmation.
Conclusion: pour pouvoir compiler et utiliser le code source il te faut un EDI (Environnement de Développement Intégré) Delphi ...
macapable
Messages postés1Date d'inscriptiondimanche 21 janvier 2007StatutMembreDernière intervention14 mai 2011 14 mai 2011 à 08:16
bonjour,
le zip est vide , 2.55 ko de données. Merci de réparer l'archive car je ne suis pas memebre du club pour télécharger les fichiers 1 par 1.
efon
Messages postés4Date d'inscriptionmardi 18 mai 2004StatutMembreDernière intervention 2 novembre 2005 14 mai 2007 à 19:01
Super !
Il fallait y penser...;-)
Je dois écrire un petit utilitaire du texte dans le contenu d'un fichier rtf...
J'avais déjà téléchargé les spécifications RTF chez microsoft pour voir comment me débarrasser des séquences de contrôle et autres codes spécifiques ... ;-) !!!
Merci !
Eddy.
monopoliy
Messages postés27Date d'inscriptionmardi 11 février 2003StatutMembreDernière intervention19 août 2003 5 mars 2003 à 20:53
A d'accord !!!!!!!!!!
Je m'excuse
Merci!
DelphiCool
Messages postés455Date d'inscriptionmardi 24 juillet 2001StatutMembreDernière intervention10 mars 2009 5 mars 2003 à 19:52
ta po bien compris
ce prog n'ouvre pas mais converti
Voici le code avec creation dynamique des composants:
Program RtfToTxt;
{
6.03.2003
}
Uses Sysutils, Forms,ComCtrls,Dialogs;
var Fenetre :TForm;
Rtf :TRichedit;
SaveRtf :TSaveDialog;
OpenRtf :TOpenDialog;
begin
Fenetre := TForm.Create(nil);
OpenRtf := TOpenDialog.Create(Fenetre);
OpenRtf.Filter := 'fichier rtf (*.rtf) |*.rtf';
OpenRtf.Title := 'Ouvre un fichier rtf' ;
if not OpenRtf.Execute then
begin
openRtf.Free;
exit;
end;
14 mai 2011 à 13:09
Le Zip n'est pas vide, il y a tout ce qu'il faut dedans pour compiler l'exécutable!!!
Merci de vous renseigner sur les activités d'un Site avant de vous y inscrire ça éviterait ce genre de situation ridicule.
Delphifr est un site de programmation ... par définition tu y trouveras que des codes-sources et de l'aide sur un problème de programmation.
Conclusion: pour pouvoir compiler et utiliser le code source il te faut un EDI (Environnement de Développement Intégré) Delphi ...
14 mai 2011 à 08:16
le zip est vide , 2.55 ko de données. Merci de réparer l'archive car je ne suis pas memebre du club pour télécharger les fichiers 1 par 1.
14 mai 2007 à 19:01
Il fallait y penser...;-)
Je dois écrire un petit utilitaire du texte dans le contenu d'un fichier rtf...
J'avais déjà téléchargé les spécifications RTF chez microsoft pour voir comment me débarrasser des séquences de contrôle et autres codes spécifiques ... ;-) !!!
Merci !
Eddy.
5 mars 2003 à 20:53
Je m'excuse
Merci!
5 mars 2003 à 19:52
ce prog n'ouvre pas mais converti
Voici le code avec creation dynamique des composants:
Program RtfToTxt;
{
6.03.2003
}
Uses Sysutils, Forms,ComCtrls,Dialogs;
var Fenetre :TForm;
Rtf :TRichedit;
SaveRtf :TSaveDialog;
OpenRtf :TOpenDialog;
begin
Fenetre := TForm.Create(nil);
OpenRtf := TOpenDialog.Create(Fenetre);
OpenRtf.Filter := 'fichier rtf (*.rtf) |*.rtf';
OpenRtf.Title := 'Ouvre un fichier rtf' ;
if not OpenRtf.Execute then
begin
openRtf.Free;
exit;
end;
SaveRtf := TSaveDialog.Create(Fenetre);
SaveRtf.Filter := 'fichier texte (*.txt) |*.txt';
SaveRtf.Title := 'sauver le fichier texte' ;
if saveRtf.Execute then
begin
Rtf := TRichedit.Create(Fenetre);
Rtf.Parent := Fenetre;
Rtf.WordWrap := false;
Rtf.Lines.LoadFromFile(OpenRtf.FileName);
Rtf.PlainText := true;
if Uppercase(ExtractFileExt(SaveRtf.FileName)) <> '.TXT' then
Rtf.Lines.SaveToFile(SaveRtf.FileName + '.txt')
else Rtf.Lines.SaveToFile(SaveRtf.FileName);
Rtf.Free;
end;
SaveRtf.Free;
OpenRtf.Free;
Fenetre.Free;
//fini
end.
5 mars 2003 à 13:27
De toute façon "Rich Edit" peut lire les .rtf et les .txt.