Código Delphi [-] //ejemplo de recorrer Memo linea a linea for i:=0 to memo.Lines.Count-1 do showmessage(memo.Lines[i]); //ejemplo del StringList var sl : TStringList; begin sl := TStringList.Create; //recuperamos el archivo en el StringList sl.LoadFromFile('c:\archivo.txt'); for i:=0 to sl.Count-1 do showmessage(sl[i]);
//ejemplo de recorrer Memo linea a linea for i:=0 to memo.Lines.Count-1 do showmessage(memo.Lines[i]); //ejemplo del StringList var sl : TStringList; begin sl := TStringList.Create; //recuperamos el archivo en el StringList sl.LoadFromFile('c:\archivo.txt'); for i:=0 to sl.Count-1 do showmessage(sl[i]);