¿Application.MessageBox?

[Ledian_Fdez]

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

[[maeyanes]]

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

[Ledian_Fdez]

Gracias maeyanes

[dec]

Hola,

¿Y no queda "mejor" así?

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

[[maeyanes]]

En dado caso creo que sería:

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

[dec]

Hola,

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

[[Bicho]]

Empezado por maeyanes

msg := 'Linea1'#13'Linea 2';

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

Saludos

[Enan0]

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

Mensaje1
Mensaje2

Y supongo que si usaras solamente #13 Quedaria algo asi

Mensaje1
(Bue esto serian espacios :@)Mensaje2

[[maeyanes]]

También puedes hacer:

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

Lo que te devuelve:

Linea1
Linea2

Saludos...