Código Delphi [-] var Linea: Integer; // Tipo de entero con negativos begin Linea := Memo1.Lines.Count - 1; // Lines es el TStrings, "Count - 1" es el último valor while (Linea <> -1) and (AnsiPos('Texto a buscar', Memo1.Lines[Linea]) = 0) do // La anterior dice, que mientras la linea no sea "-1" = No encontrado y no se encuentre el texto en la linea... Dec(Linea); // decrementara la linea ...
var Linea: Integer; // Tipo de entero con negativos begin Linea := Memo1.Lines.Count - 1; // Lines es el TStrings, "Count - 1" es el último valor while (Linea <> -1) and (AnsiPos('Texto a buscar', Memo1.Lines[Linea]) = 0) do // La anterior dice, que mientras la linea no sea "-1" = No encontrado y no se encuentre el texto en la linea... Dec(Linea); // decrementara la linea ...