Strings nur einmalig im Code verwenden - Zugriff

[Neutral General]

Zitat von http://edn.embarcadero.com/article/34324:

Classes can now have class constants -- a constant value associated with the class itself and not an instance of the class.

Delphi-Quellcode:

type
  TClassWithConstant = class
    public 
      const SomeConst = 'This is a class constant';
  end;
         

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(TClassWithConstant.SomeConst);
end;

In nicht ganz so alten Delphi Versionen sollte das da gehen. Wobei es bei meinem Delphi 7 nicht geht obwohl auf der Seite steht dass es ab Delphi 7 geht (oder hab ich was falsch verstanden?)

[RandomDD]

So viele verschiedene Lösungen hier

[p80286]

Na meist passiert irgendetwas und wir brachen einen String der angezeigt werden soll.

Delphi-Quellcode:

if state<>ErrorOK then
   DisplayMessage(FEHLER_DATEI_NICHT_GEFUNDEN);

Warum sollte ich mir so etwas antun:

Delphi-Quellcode:

if state <>ErrorOK then 
  DisplayMessage(StringListe[machwasdraus(state)]);

vielleicht wäre es gut uns zu erzählen warum Du es so machen willst.

Gruß
K-H

[Sherlock]

Ich lehne mich mal ganz weit aus dem Fenster und behaupte, daß der TE betriebsblind war, und nicht auf simple Konstanten oder auch resourcestrings gekommen ist. Denn diese Listen bzw. deren Handhabung dürften bei Leuten, die Delphi für eine "viel zu wortreiche" Sprache halten zu Schreikrämpfen führen.

Sherlock

[RandomDD]

Ich war nicht betriebsblind sondern nur leer im Kopf

Deswegen frage ich ja hier nach, um diese Leere zu füllen

Das hier gefällt mir am besten

Delphi-Quellcode:

  type
   TStrings = record

   const
    sString = 'String 1';
    // usw
   end;

   var
    MeineStrings: TStrings;

   showmessage(MeineStrings.sString1);

[DeddyH]

TStrings ist ein schlecht gewählter Name, da es auch eine gleichnamige Klasse in System.Classes gibt.

[Sherlock]

Warum? Wenn ich das mehr als fünf mal verwenden müsste, würde ich verzweifeln. Aus mehreren Gründen: String1 ist nicht selbsterklärend und ich müsste beim Codelesen immer zur Deklaration springen. Dann ist MeineStrings.sString1 gemessen an der geringen Aussagekraft mächtig lang. Wozu die Stringaufzählung noch mit einem Record umwickeln? TStrings ist übrigens ein Typ, den es bereits gibt... Detlef hats vor mir gesehen.

Es wäre also hilfreich, die Anforderungen genauer zu beschreiben, sollen zB die Strings per Index zur Laufzeit "durchlaufen" werden können?

Sherlock