Como pegar o valor de uma constante, através de uma variável

Delphi

13/10/2006

Olá amigos, tenho 30 contantes da seguinte maneira:


constName1 = ´jhghh´;
constName2 = ´jhghh´;
constName3 = ´jhghh´;
constName4 = ´jhghh´;
....


como faço pra pegar o valor destas constantes em um for? do tipo:

for i := 1 to 30 do
Memo1.Lines.Add( constName+IntToStr(i));


Sei que do jeito acima não funciona, mas a idéia é essa..
:wink:

Desde já agradeço

[]s


Titanius

Titanius

Curtidas 0

Respostas

Massuda

Massuda

13/10/2006

Sugestão...
const
  constName1 = ´jhghh´;
  constName2 = ´jhghh´;
  constName3 = ´jhghh´;
  constName4 = ´jhghh´;
  ....

const
  ArrayDeConstName: array[1..30] of string =
    constName1,
    constName2,
    constName3,
    constName4,
    ....
  );

...............

for i := Low(ArrayDeConstName) to High(ArrayDeConstName) do
 Memo1.Lines.Add(ArrayDeConstName[i]);



GOSTEI 0
Titanius

Titanius

13/10/2006

Valeu Massuda!!! :D:D:D


GOSTEI 0
POSTAR