String avec SaveToFile?

**v4np13** · 29/04/2006, 00h38

Bonjour,
Je suis en train de réaliser un wysiwyg élémentaire à partir d'un richedit que je traduit en html grace à une fonction. J'ai préféré la faire dans une chaîne (string). Mais je me rends compte que pour sauver mon fichier html, cela plante. Dois-je revenir au format TRichEdit ou existe-il une fonction qui fait string-->TRichEdit?

Une autre petite question, je bloque sur la traduction des retours chariots en <br>, je vous donne la partie du code consernée, elle ne fonctionne pas et je ne vois pas pourquoi

Code :

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

1
2
3
4
5
if (RichEdit.Text[position]= #13#10) then    //teste si le caractère est un retour chariot
                html := html+'<br>'+#13#10
        else
                 //Ajoute la lettre
                html := html + RichEdit.Text[position];

Merci d'avance pour votre aide

**Archibald29** · 29/04/2006, 09h09

Bonjour,

Peut être faut-il tester plusieurs caractères successivement pour savoir si l'on a #13#10 ?

le code

Code :

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

1
2
 
if (RichEdit.Text[position]= #13#10) then

deviendrait alors plutôt quelque chose comme :

Code :

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

1
2
 
if (RichEdit.Text[position]= #13) and (RichEdit.Text[position+1]= #10) then

A++

**v4np13** · 29/04/2006, 09h43

Merci pour votre réponse, c'était la bonne solution

Il ne me reste plus que le problème de l'enregistrement

**evarisnea** · 29/04/2006, 09h57

salut,
il existe des fonctions dans delphi pour effectuer cela plus simplement
jettes un coup d'oeil du coté des fonctions
AnsiReplaceText
AnsiContainsText
AnsiReplaceStr
StringReplace
...

**v4np13** · 29/04/2006, 10h35

Ce n'est pas ce que je cherche... J'ai une chaîne (html :string; ) qui contient tout le texte HTML généré par mon programme.

<html>
<head>
<title>Test</title>
</head>
<body>blablable</body>
</html>

La chaîne est correcte, mais il ne veut pas me l'enregistrer avec le savedialog, ça marche que pour les richedit pas pour les chaines... Je devrai p-e récupérer le filename et créer le fichier et mettre tout dedans par moi-même?

String avec SaveToFile?

Langage Delphi

Discussions similaires

Partager

Partager