IF THEN con datos sacados de un txt

[*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