Abre un fichero de texto y devuelve la cadena que contiene a otra dada

Por Saiyine  el 2001-01-01 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 435

function TraemeLineaConCadena(fichero,cadena : string; casesensitive : boolean) : string;
var
  fi : textfile;
  cad : string;
  hecho : boolean;
begin
  hecho:=false;
  assignfile(fi,fichero);
  reset(fi);
  if not casesensitive then cadena:=uppercase(cadena);
  while (not eof(fi)) and (not hecho) do
    begin
      readln(fi,cad);
      if not casesensitive then
        begin
          if pos(cadena,ucase(cad))>0 then
            begin
              result:=cad;
              hecho:=true;
            end;
        end
      else
      if pos(cadena,cad)>0 then
        begin
          result:=cad;
          hecho:=true;
        end;
    end;
  closefile(fi);
end;

Util pero mejorable claramente devolviendo una lista de cadenas que incluyan el texto... si a alguien le interesa, que lo diga y lo pongo.

GPSFOREVER (12/06/2005, 04:55) amigo cuado corro esta funcion no corre este valor "ucase" me podrias dar algun alcance o solucion.

Saiyine (12/06/2005, 21:28) Prueba a usar la función uppercase en su lugar.