ResourceString y punteros

[Casimiro Notevi]

Seguramente es porque, precisamente, son constantes y no se les puede cambiar su valor.
¿Has probado si funciona igual si no son const?

[[geolife]]

Hola Casimiro!

Si, acabo de probar usando un Var en vez de Const; y tenemos el mismo resultado. Adjunto el ejemplo simplificado con puntero y sin el, en el primer caso Showmessage funciona bien, en el segundo caso no lo hace...

Código Delphi [-]
unit U_Translate;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

  Resourcestring
  RS1 = 'Primavera';  RS2 = 'Verano'; RS3 = 'Otoño'; RS4 = 'Invierno';

var
  Form1: TForm1;
  CEstacion: Array [1..4] of String = (RS1,RS2,RS3,RS4); // Normal
  PCEstacion: Array [1..4] of ^String = (@RS1,@RS2,@RS3,@RS4);  // Puntero

implementation {$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ShowMessage (CEstacion[1]);
 ShowMessage (PCEstacion[1]^);
end;

end.

Empezado por Casimiro Notevi

Seguramente es porque, precisamente, son constantes y no se les puede cambiar su valor.
¿Has probado si funciona igual si no son const?

[[geolife]]

@Neftali [Germán.Estévez] ; @Casimiro Notevi

Gracias por vuestra ayuda, finalmente al plantear también la cuestión en stackoverflow hay un camino que sugiere Stefan Glienke y lo dejo aquí compartido, por si cualquiera se encuentra ante el mismo problema.

https://stackoverflow.com/questions/...resourcestring

Básicamente se trata de lo siguiente:

Código Delphi [-]
Resourcestring
 RS1 = 'Primavera'; RS2 = 'Verano'; RS3 = 'Otoño'; RS4 = 'Invierno';
const
  CEstacion: array [1..4] of PResStringRec = (@RS1,@RS2,@RS3,@RS4); 
procedure show;
begin
ShowMessage(LoadResString(CEstacion[1]));
end;