Hola mi amigos del foro de nuevo ando por aca en busca de su ayuda haber si me dan una manito esperando resolver este problema , el siguiente codigo me da error al comprobar el contenido de un edit con el de un tmemo mi programa cuenta con un identificador de idhardware que que comunica desde una servidor y lo pasa aun tmemo el cual busco ese serial que esta alli y lo comparo con el edit que esta oculto y si es igual al que esta en el tmemo pasa a un mensaje 'correcto' el problema ensi, es que habese cuando hago la comprobacion casi siempre me sale el error como sino estubiera buscando nada en el tmemo de todas forma le paso un pedazo de mi codigo que utilizo y me digan en donde estoy fallando xD
Código Delphi
[-]
procedure activarcomprobacion;
begin
form1.memo1.Clear;
form1.IdHTTP1.Request.CacheControl := 'no-cache';
form1.Memo1.Lines.Text:=form1.IdHTTP1.Get('http:url/Array.txt');
end;
procedure TForm1.FormShow(Sender: TObject);
begin
activarcomprobacion;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
loll:string;
begin
if form1.Button1.Caption=('Button1') then begin
ftext:=LowerCase(Memo1.Lines.text);
loll:=LowerCase(Edit1.Text);
nrf:=pos(LowerCase(loll),ftext);
if nrf>0 then begin
Memo1.setfocus;
Memo1.SelStart:=nrf-1;
Memo1.SelLength:=length(Edit1.text);
Memo1.setfocus;
form1.Label1.Caption:=('OK');
end
else
form1.Label1.Caption:=('error');
end;
end;
Espero su respuesta Gracias