Personalmente no lo veo muy complicado, a menos
que no te haya entendido bien, pero si de lo que se trata es de saber exactamente que es un determinada
"Cosa"(persona, animal o cosa
) pues tranquilamente puedes hacerte una
Funcion que te busque dicha Cosa en tu archivo y te devuelva
"lo que és", en un string
mas o menos asi:
Código Delphi
[-]function TForm1.Que_es_esto(const Algo: String): String;
var
aux:TStrings;
i,p:Integer;
s:String;
begin
Result:='Es otra cosa';
aux:=TStringList.Create; try
aux.LoadFromFile('MiArchivo.txt'); for i := 0 to aux.Count-1 do begin
p:=pos('=',aux[i]); s:=Trim(copy(aux[i],1,p-1)); if CompareText(s,algo)=0 then begin
Result:=Trim(copy(aux[i],p+1,length(aux[i])-p)); Break; end;
end;
finally
aux.Free; end;
end;
Con eso solucionas tu problema.
Un ejemplo de uso sería:
Código Delphi
[-]var respuesta:String
begin
respuesta:=Que_es_esto('Jupiter');
ShowMessage(respuesta);
end;
Por demás está decirte que tu archivo donde guardarás la
definiciones debe tener el
formato adecuado..
Espero te sea de Ayuda.
Saludos...