IF THEN con datos sacados de un txt

[rgstuamigo]

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;//creo una lista auxiliar
  try
   aux.LoadFromFile('MiArchivo.txt'); //leo el contenido del archivo a mi lista
    for i := 0 to aux.Count-1 do //iteramos para buscar
    begin
        p:=pos('=',aux[i]); //saco la posiscion del caracter '='
        s:=Trim(copy(aux[i],1,p-1));//copio parte de string hasta la posicion del "=" - 1(menos uno)
        if CompareText(s,algo)=0 then //comparo si es el objeto o cosa que busco
         begin
           Result:=Trim(copy(aux[i],p+1,length(aux[i])-p));//copio la segunda parte del string es decir "lo que és".
           Break;//rompo el ciclo
         end;
    end;
  finally
   aux.Free;//Libero mi lista auxiliar
  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...

[[coso]]

Hola,
TStringList tiene la propiedad Values, que hace exactamente lo que ha codificado rtgs. Echale un vistazo a la ayuda de delphi. Un saludo.

[*Caro*]

Hola Greco, te sería mas facil utilizar la propiedad Values como te indica Coso, ejemplo:

Código Delphi [-]
var
 sl : TStringList;
 Valor : String;
begin
 sl := TStringList.Create;
 sl.LoadFromFile('archivo.txt');
 
 Try
   Valor := sl.Values[Edit1.Text];//En tu edit colocas lo que estas buscando  ->Pedro...

   if Valor='' then
    showmessage('es otra cosa')
   else
    showmessage(Valor);
 Finally
   sl.Free;
 end;

El separador por defecto es el igual, si quisieras cambiarlo puedes utilizar la propiedad NameValueSeparator.

Saluditos

[Greco]

hola, gracias a todos por las respuestas, no habia podido responder antes por que a los días de haber posteado después no pude acceder a la página por el famoso mensaje de virus y los siguientes días no tuve tiempo.

Probé las dos soluciones, la que indica rgstuamigo y la de Coso (ampliada por Caro), las dos funcionaron y realizaron lo que necesitaba pero al final implementé la que utiliza la opción Values por requerir menos lineas de código.

Lo metí en una función y puedo hacer lo que necesito.


Gracias a todos por su ayuda.

Saludos