Lo primero que se me ocurre es un archivo de texto con este formato:
Código:
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...
