DimaBr, а что есть значения перечисляемого типа? Неужто названия?
...
...а ты бы для доступа к "именованным" значениям студентам предложил бы RTTI использовать:
uses
...
TypInfo;
type
Ttt = (one, two, thee);
var
i : Integer;
F : TextFile;
begin
try
Randomize;
AssignFile(F, 'Файл.txt');
Rewrite(F);
for i := 1 to 6 do
Writeln (F, GetEnumName(TypeInfo(Ttt), Random(Succ(Ord(High(Ttt))))));
CloseFile(F);
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.
Или просто массив констант, от греха подальше:
type
Ttt = (one, two, thee);
const
acTtt : array [Ttt] of string = ('one','two','thee');
var
i : Integer;
F : TextFile;
begin
try
Randomize;
AssignFile(F, 'Файл.txt');
Rewrite(F);
for i := 1 to 6 do
Writeln (F, acTtt[Ttt(Random(Succ(Ord(High(Ttt)))))]);
CloseFile(F);
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.
? :)