Einzelnen Beitrag anzeigen

Benutzerbild von smallsmoker
smallsmoker

Registriert seit: 12. Nov 2007
Ort: Duisburg
283 Beiträge
 
#1

Namen einer Konstanten/Variable als String ausgeben

  Alt 25. Sep 2008, 12:40
Hi,
ich habe in meinem programm ein paar Konstanten definiert:

Delphi-Quellcode:
const
  CMD_CHUNK = 5; // Piece of Data
  CMD_STOP = 6; // Data was send completely
  CMD_NICKNAME = 7; // new Nickname
nun möchte ich nicht den wert der konstante bspw.: CMD_CHUNK also inttostr(CMD_CHUNK) = '6' ausgeben sondern 'CMD_CHUNK'.
das könnte ich z.b so machen:

Delphi-Quellcode:
case Konstante of
  CMD_CHUNK:
    begin
      Log.Lines.Add('CMD_CHUNK');
    end;

  CMD_STOP:
    begin
      Log.Lines.Add('CMD_STOP');
    end;

  CMD_NICKNAME:
    begin
      Log.Lines.Add('CMD_NICKNAME');
    end;
end;
(Log ist ein Tmemo)

aber ginge das nicht einfacher ?

mfg smallsmoker
  Mit Zitat antworten Zitat