PansiChar a string

[[xEsk]]

El motivo de usar "PChar" (también valido poner "Pointer") en esta función, es porqué "MessageBox" es una función de la API de Windows, así que le pasas un puntero al String, no el String.

Saludos.

[JosepMiquel]

Como continuación a este post, el cual me ha parecido interesante, he decidido introducirlo en una aplicación que estoy escribiendo, y el caso es que aplicandolo al siguiente evento,

procedure TFormMantenTitulos.Edit1Change(Sender: TObject);
var
Opcion:integer;
begin
Tabla1.SetKey;
Tabla1.FieldByName('Ticker').AsString:=Edit1.Text;
Tabla1.GotoNearest;
if Edit1.Text = Tabla1.FieldByName('Ticker').AsString then
Opcion:=Application.MessageBox(PChar('El Ticker '+Edit1.Text+' ya existe'),
'ATENCION',mb_YesNo+mb_IconWarning);
if Opcion = IDYes then
begin

(Codigo para efectuar modificaciones
end
else
begin
Edit1.Text:='';
Edit1.SetFocus;
end;
end;

no puedo editar en el Edit1, en tiempo de ejecucición.
¿Alguien puede ayudarme ? Gracias.

Josep.