Strings nur einmalig im Code verwenden - Zugriff

[RandomDD]

Erster Post: sorry, bin kein Pro und kein Programmierer, daher verzeiht mir dumme Fragen!

Ich benutze in einem Testprojekt ein paar Strings gefühlte 100 Mal an verschiedenen Stellen.
Das find ich etwas suboptimal.

Meine 0815-Lösung war jetzt, dass ich eine Konstante definiere die so aussehen kann
StringListe: array [0 .. 1] of String = ('String 1', 'String 2');

Etwas weiter unten ein Type
type TStringListe = (sString1, sString2);

Jetzt kann ich ungefähr so auf die Strings zugreifen
showmessage(StringListe[Ord(TStringListe.sString2)]); Das gibt dann 'String 2' aus.

Ich könnte auch einfach das Array benutzen
showmessage(StringListe[1]); Aber wenn sich dann mal der Index von String 2 ändert, müsste ich überall alles abändern.

Gibt es eine bessere Methode als meine? Die gibt es doch sicher!

[Neutral General]

Öhm du könntest direkt Konstanten anlegen:

Delphi-Quellcode:

const
  sString1 = 'String 1';
  sString2 = 'String 2';

showmessage(sString1);
showmessage(sString2);

[RandomDD]

Oder so.

Aber geht das nicht schöner und kompakter? Eventuell sogar noch über einen Type?

[Neutral General]

Wie viel kompakter als Konstantenname = Wert willst du es denn noch haben?
Du kannst optional für deine Konstanten einen Typ angeben:

Delphi-Quellcode:

const
  sString1: String = 'String 1';
  sString2: String = 'String 2';

[RandomDD]

Also ungefähr so?

Delphi-Quellcode:

type
 TStringListe = record
 
 const
  sString1 = 'String 1';
  sString2 = 'String 2';
end;

var
 MeineStrings: TStringListe;

showmessage(MeineStrings.sString1);

[Sherlock]

Es gibt da verschiedene Möglichkeiten. Eine prominente dürfte die Verwendung von resourcestring sein.
Beispiel:

Delphi-Quellcode:

resourcestring
  rsInvalidIP = 'Ungültige IP';
  rsGeraetVon = 'Geraet von: %s';
  rsGeraetBis = '%0:s bis: %1:s';
  rsListeBearbeiten = 'Liste Bearbeiten';
  rsFertig = 'Fertig';
  rsZuordnen = 'Zuordnen';

Das hat den Vorteil, daß sie von den gängigen Übersetzungsprogrammen auch gleich erkannt werden.

Sherlock

[DeddyH]

Oder vielleicht so etwas?

Delphi-Quellcode:

type
  TSomeType = (stOK, stError, stBananenSindKrumm);

const
  SOMESTRINGS: array[TSomeType] of string = ('Alles in Butter', 'Oops', 'Is mir völlig Banane');

...

ShowMessage(SOMESTRINGS[TSomeType.stBananenSindKrumm]);

[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