Подскажите, пожалуйста. Я никак не найду решения своей задачки.
Суть:
я создаю файл таким вот образом:
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;
, но не работает.
Подскажите - как правильно сделать?