var f:textfile;
i:word;
s:string;
...
assignfile(f,'путь\файл.txt');
reset(f);
for i:=1 to n do
readln(f,s);
closefile(f);
edit1.text:=s;
Строка
Как прочитать строку из файла?В эдит?
если текстовый файл и номер строки n, то вот так
Код:
если текстовый файл и номер строки n, то вот так
Код:
var
FName:string;
st:Tsringlist;
n :integer;
begin
st:=Tstringlist.create;
st.loadfromfile(FName);
Edit1.text:=st.strings[n-1];
st.free
FName:string;
st:Tsringlist;
n :integer;
begin
st:=Tstringlist.create;
st.loadfromfile(FName);
Edit1.text:=st.strings[n-1];
st.free