Discussion :

[Shifty44]

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

[ero-sennin]

Salut,

Tu peux faire comme ceci :

Code :

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

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

[Pedro]

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

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

Code :

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

1
2
 
Chr(vk_Return)

[Jipété]

Chr(vk_Return)

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

Just curious,
--
jp

[sjrd]

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).

[Pedro]

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

Le VK_RETURN c'est uniquement #13.

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