[force1758]

Hola bueno voy haber si me explico mejor así con el codigo lo que quiero en si es crear una función que lea cada linea del archivo luego separar esas lineas en valores sin utilizar tmemo, ni form , ni edit ya que esta es una dll la cual yo utilizarlo en ejecución de mi aplicación

Código Delphi [-]
Function leerText (Const valor: Array [1..5] of String):string;
var
MiFichero : TextFile;
valorsting : String;

begin
AssignFile (MiFichero,(C:\nombre.txt'));
Reset (MiFichero);
Read(MiFichero,valorsting);// aqui leo es siempre la primera linea 
valor[1]:= StrToInt (valorsting); // quiero obtener el valor de la primera linea
valor[2]:= StrToInt (valorsting); // quiero obtener el valor de la segunda linea
valor[3]:= StrToInt (valorsting); // quiero obtener el valor de la trecera linea
valor[4]:= StrToInt (valorsting); // quiero obtener el valor de la cuarta  linea
valor[5]:= StrToInt (valorsting); // quiero obtener el valor de la quinta linea

y utilizar esos valores obtenido en otro procedimientos por eso necesito ver como lo hago para emplearlo en mi code (sin utilizar nada de tmemo,memo1,edit puro código ) y gracias por estar tan atentos por que todos estos ejemplo me sirve para tener mas experiencia

Saludos