[MessageBox] saut à la ligne non souhaité, après injection variable

**Droïde Système7** · 22/10/2009, 16h13

Bonjour

J'ai des soucis quant à formater correctement cette boite de message.

Plus précisément, juste après la variable "NameFich" : comment laisser sur la même ligne "peut nuire" ?

Car ça saute systématiquement à la ligne.

Code :

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

1
2
3
4
5
  MessageBox(Handle, PAnsiChar(Format('  MISE EN GARDE' +
         sLineBreak+sLineBreak+'  Toute modification apportée à ce fichier %s', [NameFich]) + ' peut nuire' +
                    sLineBreak+'  Exemple ligne trois...' +
         sLineBreak+sLineBreak+'  Exemple ligne quatre...'  ),
                         'Consultation d''un fichier...', MB_OK + MB_ICONINFORMATION);

Merci d'avance de vos conseils.

**Cl@udius** · 22/10/2009, 16h36

Salut

Voici le résultat du MessageBox:

---------------------------
Consultation d'un fichier...
---------------------------
MISE EN GARDE

Toute modification apportée à ce fichier MonFichier.txt peut nuire

Exemple ligne trois...

Exemple ligne quatre...
---------------------------
OK
---------------------------

A part NameFich qui contiendrait un CR/LF je ne vois pas.

@+ Claudius

**Droïde Système7** · 22/10/2009, 16h54

Salut Claude

Tu as mis le doigt dessus directo

Code :

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

  NameFich := 'toto';  // ExtractFileName(ListBox1.Items.Text);

En remplaçant le contenu de la variable, c'est OK !

Oui mais comment éviter que sous cette variable :

Code :

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

 ExtractFileName(ListBox1.Items.Text);

il reste un saut à la ligne (invisible) ?

@+

**ShaiLeTroll** · 22/10/2009, 17h00

Fait un Trim !

**Cl@udius** · 22/10/2009, 17h01

Re-Hello

Code :

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

Trim(NameFich)

Restons simple.

[Edit] Grillé par le vilain troll.

@+

**Droïde Système7** · 22/10/2009, 17h02

Salut les copains

Je viens de tester avec un :

Code :

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

1
2
3
  NameFich := ExtractFileName(ListBox1.Items.Text);
 
  NameFich := StringReplace (StringReplace(NameFich, 'rfReplaceAll #10','', []), '#13','', [rfReplaceAll]);