Работа с файлами в (Delphi XE3)

[нуб7]

Нужно записать фамилии и имена в файл, а после этого открыв файл нужно считать данные и вывести на экран самого старшего сотрудника, записать в фаил получилось, а как считать с него и вывести имя и возраст старшего сотрудика

type
tstud = record
name:string;
age:integer;
end;

const
n=2;

var
fl:textfile;
x: integer;
stud: array [1..n] of tstud;
k:1..n;
line: string;
line1: integer;

begin
x:=0;
writeln('Введите имена и возраст');
for k:=1 to n do
begin
write('имя>> ');
readln(stud[k].name);
write('возраст>> ');
readln(stud[k].age);
end;

begin
  Assign(fl, 'D:\in.txt');
  rewrite(fl);
  close(fl);
  for k := 1 to n do
  begin
    append(fl);
    line := stud[k].name;
    write(fl, line);
    write(fl, ', ');
    line1 := stud[k].age;
    write(fl, line1);
    writeln(fl);
    close(fl);
   end;
end.

[min@y™]

Использование типа textfile обязательно?

[нуб7]

можно и без него

[min@y™]

Сообщение от нуб7

можно и без него

тогда юзай TMemIniFile и будешь в шоколаде. И писанины в разы меньше, и контроль ошибков проще.

[disbnt]

const
  fname = 'путь к файлу';

type
  Tsdudent = record
    name : string[32];
    age : byte;
  end;

var
  students : array of Tstudents;

procedure write_students;
var
  f : file of Tstudent;
  i : integer;
begin
  assignfile(f,fname);
  rewrite(f);
  for i := 0 to length(students)-1 do begin
    write(f,students[i]);
  end;
  closefile(f);
end;

procedure read_students;
var
  f : file of Tstudent;
  buf : Tstudent;
begin
  assignfile(f,fname);
  if fileexists(fname) then begin
    reset(f);
    while not eof(f) do begin
      read(f,buf);
      setlength(students,length(students)+1);
      students[length(students)-1] := buf;
    end;
  end
  showmessage('Нет студента');
end;

procedure print_StArShIi_student;
var
  buf : byte;
  index : integer;
  i : integer;
begin
  byf := 0;
  index := -1;
  for i := 0 to length(students)-1 do begin
    if students[i].age > buf then begin
      buf := students[i].age;
      index := i;
  end;
  if index > -1 then showmessage(students[index].name);
end;

[Stilet]

Да тут обычный file of stud подойдет.
Ну и не забыть поставить string[255]. Образмерить всмысле.