¿Application.MessageBox?
 

Holas amigos de este foro. Hoy les he traido una inquietud, les explico:

Quiero mostrar un mensaje con el texto en dos lienas, pero me da el error (Incompatible types: 'String' and 'PAnsiChar') y no se como poder convertir de un tipo a otro.

el codigo es este

Código Delphi [-]
var
 msg : String;
begin
 msg :='Linea#1' + Chr(13)+ ' Linea#2';
    if Application.MessageBox(msg, 'Título', MB_ICONWARNING or MB_OK);
end;

De antemano gracias

saludos
Ledian

Prueba así:

Código Delphi [-]
var
 msg : String;
begin
 msg :='Linea#1' + Chr(13)+ ' Linea#2';
    if Application.MessageBox(PChar(msg), 'Título', MB_ICONWARNING or MB_OK);
end;

Saludos...

problema Resuelto
 

Gracias maeyanes

Hola,

¿Y no queda "mejor" así?

Código Delphi [-]
msg := 'Línea 1' +#13+ 'Línea 2';

En dado caso creo que sería:

Código Delphi [-]
msg := 'Linea1'#13'Linea 2';

Hola,

Pues sí; funciona perfectamente como dices Maeyanes. Nunca que te acostarás, etc. Gracias Maeyanes. ;)

Curioso, yo tampoco lo habia visto nunca. Siempre lo habia incluido con los signos más a cada lado.

Saludos

Si a mi me pasa lo mismo, por lo menos con delphi 5 y 6

Código Delphi [-]

msg:='Mensage1'+#13#10+'Mensaje2'

te muestra algo asi..


Y supongo que si usaras solamente #13 Quedaria algo asi

También puedes hacer:

Código Delphi [-]
msg := 'Linea1'#13#10'Linea2'

Lo que te devuelve:


Saludos...