string et showmessage

Bonsoir,

j'aimerais savoir si quelqu'un aurait une méthode pour passer dans un string un retour à la ligne.

En effet, je fais différents tests d'erreur que je veux renvoyer dans showmessage mais je voudrais formater la boite de dialog dès le départ comme en javascript (ex: erreur:=erreur + 'mon message\n';)

Ainsi dans mon showmmessage je pourrais avoir différente phrase d'erreur mais avec un retour à la ligne.

Merci de vos futurs réponses

Salut,

Tu peux faire comme ceci :

Code:

---

1 2 3 4 5 6 7

procedure TForm1.Button1Click(Sender: TObject); var erreur:string; begin erreur:='Le programme vient de planter.'; ShowMessage(erreur+#13+'Trop tard, tu ne peux plus rien suavegarder'); end;

---

C'est #13 qui permet de faire une retour chariot.

En espérant que c'est ce que tu souhaites réaliser ;)

Citation:

---

Envoyé par ero-sennin

C'est #13 qui permet de faire une retour chariot.

---

Plus exactement, c'est #10#13 (CR/LF) ou sinon plus simplement :

Code:

---

1 2	Chr(vk_Return)

---

;)

Citation:

---

Chr(vk_Return)

---

Ça, ça fait " #10 + #13 " ?

Just curious,
--
jp

Ce n'est pas #10#13 mais #13#10. Car CR c'est 13 (Carriage Return) et LF c'est 10 (Line Feed).
Le VK_RETURN c'est uniquement #13.

Pour les ShowMessage et Cie il suffit de mettre #10, qui est le code de nouvelle ligne sous Unix (et fonctionne par extension dans les boîtes de dialogue Windows, mais pas dans les Memo par exemple).

Citation:

---

Envoyé par sjrd

Ce n'est pas #10#13 mais #13#10. Car CR c'est 13 (Carriage Return) et LF c'est 10 (Line Feed).

---

Ah oui zut je me trompe à chaque fois :oops:

Citation:

---

Envoyé par sjrd

Le VK_RETURN c'est uniquement #13.

---

Ca je savais pas par contre ;)
Décidemment, on en apprend tous les jours :lol: