Usa la classe TSTringList.
Var oLst: TStringList;
begin
oLst := TStringList.create;
oLst.LoadFromFile('<filetxt>');
< da questo momento hai il tuo txt dentro la classe dunque..>
oLst.Count -> totale delle righe
oLst.strings[<indice>] -> singola riga
... ect ect
end;
|