Действия с типизированными файлами

Кирочка
Дата: 27.04.2011 22:50:22
помогите написать программу:Занести 6 случайно выбранных значений перечисляемого типа в файл
чччД
Дата: 28.04.2011 00:16:47
Кирочка,
1. А при чем здесь типизированные файлы?
2.
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, Random(Succ(Ord(High(Ttt)))));
    CloseFile(F);
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

DimaBr
Дата: 28.04.2011 00:33:43
Для лабораторной это круто !!!
Random(Succ(Ord(High(Ttt))))
чччД
Дата: 28.04.2011 01:06:30
DimaBr, есть стимул разобраться...:)
DimaBr
Дата: 28.04.2011 01:16:33
Приведенный код не совсем верен, но запишет в файл 6 цифр от 0 до 2, что не совсем стыкуется с условием
чччД
Дата: 28.04.2011 01:47:23
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.
? :)
DimaBr
Дата: 28.04.2011 01:57:47
Супер, супер, супер !!!!
Препод сразу поймет, что человек разбирается, и пятёрку(двенадцатку) влепит
Writeln (F, GetEnumName(TypeInfo(Ttt), Random(Succ(Ord(High(Ttt))))));
Anatoly Podgoretsky
Дата: 28.04.2011 02:50:59
Где то там
Дата: 28.04.2011 04:06:21
Вот, кто крут - не лень было книгу набивать.
чччД
Дата: 28.04.2011 04:12:41
Anatoly Podgoretsky
http://podgoretsky.com/Redir.aspx?id=143&DownloadFile=~/ddp/PasFiles.aspx

Я понял, что такое типизированные файлы!!!!!!!!!!!!!!!!!!!!!!
Это файлы разных типов!!!!!!!!!!!!!!!