variables y constantes

[[maeyanes]]

Lo primero que se me ocurre es un archivo de texto con este formato:

Hola=Hola, ¿qué tal
Guillermo=¿Cómo estás, Guillermo?
Pepe=Uy, ese nombre no me suena

Luego desde tu aplicación haces algo como:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Consts: TStringList;

begin
  Consts := TStringList.Create;
  try
    Consts.LoadFromFile('consts.txt');
    if Consts.Values[Edit1.Text] <> '' then
      ShowMessage(Consts.Values[Edit1.Text])
  finally
    Consts.Free
  end
end;

Ahora la explicación...

La clase TStringList tiene una propiedad llamada Values, la cual al insertar una o más líneas con el formato Nombre=Valor, se puede usar para obtener un valor mediante su nombre.

Así pues, puedes crear un archivo de texto con tantos pares de "constantes" y sus valores quieras, y luego desde tu aplicación lo cargas a un TStringList y devuelves su valor mediante la propiedad Values, tal como lo muestro en el ejemplo de arriba.

Esto es lo primero que se me ocurrió, tal vez exista una forma de hacer más rápido la comparación que necesitas y que sea usando constantes, pero por ahora no se me ocurre nada...



Saludos...

P.D. [Actualización] Veo que seoane dio la misma respuesta que acabo de dar, lo que me indica que no ando del todo equivocado...