Einen resourcestring über einen String ansprechen

[ASM]

Zitat:

Geht nicht.

Warum nicht so:

Code:

resourcestring
  AA_10_10='Dies ist ein Text';
  AA_10_11='Dies ist ein weiterer Text';
  AA_10_12='Dies ist noch ein Text';
  AA_10_13='Dies ist der letzte Text';

var  ResStr: Array [0..3] of string =(AA_10_10,AA_10_11,AA_10_12,AA_10_13);

Function constantentext(i: word): String;
begin
 result:=ResStr[i] ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.caption:=constantentext(random(3));
 // oder einfach nur (ohne spez.Function constantentext) : Label1.caption:=ResStr[random(3)];
end;