Einen resourcestring über einen String ansprechen

[bernau]

Folgender Code(Schnipsel) ist vorhanden:

Delphi-Quellcode:

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';

Ich möchte über eine Funktion den Wert auslesen und als String den Bezeichner übergeben.

 LabelXy.caption:=constantentext('AA_10_10'); LabelXy.caption sollte dan 'Dies ist ein Text' anzeigen.


Jemand eine Idee, wie ich das realsisieren kann?

[himitsu]

Geht nicht.

- Eine Resourcestring wird in den Resourcen als durchnummerierte Gruppen zu je 16 Strings abgelegt.
- Die Nummern/Indize der Resourcestrings werden bei jedem Neucompilieren "zufällig" (vermutlich in Compilier-/Linkreihenfolge) neu vergeben.
- Delphi speichert keine Variablen-/Konstantennamen.

> Erstell einfach mal eine EXE, mit deinen Ressourcestrings und schau mit einem Resourceeditor dort rein.

Lösung:
Selber die namentlichen "Text"-Resourcen erstellen (keine nummerierten Stringlisten, es sei denn du willst über die selbstvergebenen Nummern/Indize zugreifen)

[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;

[bernau]

@himitsu: Danke für die Info. Ich habe es befürchtet

@ASM: Das wird mir nichts bringen. Ich möchte ja speziell über den Namen der Konstante auf den Inhalt zugreifen und nicht über eine (nichtssagende) Indexnummer. Letztendlich werde ich auf ca. 50.000 verschiedene Strings zugreifen müssen. Dazu setze ich mir den Namen aus einer Berechung als String zusammen (AA_10_10 sind z.B. 3 zusammengesetzte Teilbereiche) und über diesen Namen Greife ich auf den Ressourcenstring zu.

[Satty67]

Bei 50.000 Resourcenstrings würde sich ja schon eher eine alternative Methode anbieten, wie eine Datenbank oder zumindest eine Key/Value Stringlist aus einer Text/XML-Datei.

Da wäre dann wenigsten auf einen Schlag die gewünschte Zugriffslogik ein Kinderspiel.

[bernau]

Ich fand es bisher immer gut, daß diese Daten in der EXE-Datei vorhanden waren. Eine externe Datei kommt für mich erst mal nicht in Frage.

Bisher hatte ich alle Strings in eine Procedure gepackt. Aber mit DelphiXE gibt's nun ein Problem.

Siehe: http://www.delphipraxis.net/158048-e...en-fehler.html

Jetzt muss ich mir was anderes einfallen lassen.