|
No funciona.....
Hola.... el codigo que me enviate si compila, pero cuando trato de visualizar la cadena convertida a PWideChar no es lo que se le entro. Esta es la implementacion.
Simplemente puse un edit, un boton y un label. En el edit entro el texto, en el OnClick del boton lo convierto y lo muestro con el label.
Cuando compilo me da este warning:
[Warning] strToPWideChar.pas(34): Suspicious typecast of String to PWideChar.
Supongo que ahi es donde esta el problema.. pero no lo deja hacer. Mi implementacion es esta:
procedure TForm1.Button1Click(Sender: TObject);
Var
Cadena : String;
Resultado : WideChar;
begin
Cadena := edit1.Text;
Resultado := PWideChar(Cadena)^;
Label1.Caption := Resultado;
end;
y cuando le entro la cadena LOLO, lo que me muestra en el label es: ??.
Saben por que es?? Agradezco cualquier sugerencia.
GRACIAS
|