Открыть созданный файл Опции

[camac]

Бодрого дня, господа.
Подскажите, пожалуйста. Я никак не найду решения своей задачки.
Суть:
я создаю файл таким вот образом:

var nameFile,ccc : string;
     myFile : text;
begin
   gotoxy(3,3);
   write('Введите название файла: ');
   otoxy(58,3);
   write('______');
   gotoxy(59,3);
   readln(nameFile);
   nameBasa:=nameFile+'.dat';
   gotoxy(3,6);
   write('Вы создали файл: ');
   textcolor(14);
   write(nameFile);
   assign (myFile,nameFile);
   rewrite(myFile);
   readkey;
end.

Как мне теперь его открыть. При условии, что я не знаю, как он называется. Но его имя, по идее, есть в переменной myFile.
Делаю так:

   reset(myBasa);
   while not eof(myFile) do
      begin
          readln(myFile,ccc);
          writeln(ccc);
      end;

, но не работает.
Подскажите - как правильно сделать?

[OCTAGRAM]

У File как раз нет ООП. Ну, кроме того ООП, что заложено в ядре OS и доступно через THandle.

У Text есть обработчики, и только над Text можно поколдовать, чтоб направить в каком-то необычном направлении. Но Text принципиально текстовый. В древних версиях он ещё состоял из байтов, но Delphi 2009+ и FPC 3.0+ диктуют, что он должен быть Юникодный. То есть, Text — это, скорее, http://docwiki.embarcadero.com/Libraries/R…ses.TTextReader и TTextWriter, два в одном.

А для двоичных данных как раз и есть TStream.

При использовании ООП про конкретную переменную можно знать, что она не просто TStream, а его потомок с дополнительными методами. Например, можно создать TMemoryStream, дать другому модулю записать в него как в абстрактный TStream, а потом, пользуясь этим знанием, узнать размер и подвигать курсором.

У Text нет Seek, и недоделанное ООП не даёт цивилизованного способа недостающие операции добавить.