Открытие файла txt

@Денис Архипов · Регистрация: 07.02.2013

Студворк — интернет-сервис помощи студентам

Добрый день. Есть процедура, которая открывает файл txt.

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure LoadMaze(var TheMaze : Maze; Name : string);  //загрузить лабиринт
var
  f:TextFile; //файл с описанием лабиринта
  Height, Width:Integer;//высота и ширина лабиринта
  x,y:Integer;//текущая локация
  lw,uw:Integer; //временные переменные
begin
  AssignFile(f,'Name.txt'); //открыть файл
  Reset(f);
  ReadLn(f,Width,Height);//прочитать высоту и ширину
  SetLength(TheMaze,Width+1,Height+1);//изменить размер лабиринта
for y:=0 to Height do //цикл по всем локациям
    for x:=0 to Width do
    if (y=Height)or(x=Width) then //если локация-служебная
    begin
      TheMaze[x,y].left_wall := true;   //обе стены существуют
      TheMaze[x, y].up_wall := true;
    end
     else
           begin //иначе считываем
         ReadLn(f, uw, lw); // из файла
         TheMaze[x, y].left_wall := Boolean(lw);//прочитанное целое
         TheMaze[x, y].up_wall := Boolean(uw);//число надо привести
         end; //к типу Boolean
     CloseFile(f);
     end; //закрыть файл

И есть кнопка, по нажатию на которую вызывается эта процедура.

Кликните здесь для просмотра всего текста

Delphi
1
LoadMaze(Laberint,'name.txt');

Как сделать, чтобы вместо второго параметра "Name.txt" открывалось диалоговое окно, и я мог выбирать файл txt?

Спасибо.

@Денис Архипов · 16.05.2013, 23:18 **[ТС]**

Огромнейшие тебе спасибо. Очень выручил.
Можно задать пару вопросов?
В каком формате сохраняется карта? Раньше сохранялось в txt файле. Там были два числа, которые отвечали за верхнюю и левую стенку локации. А как сейчас?
И насчёт хождения. Там только мышкой можно нажимать на кнопки и ходить, или клавишами клавиатуры тоже?

16.05.2013, 23:26

Сохранение карты переделано в бинарный формат:
1. ID файла - 6 байт
2. 2 значения размерность карты - 8 байт.
3. данные.
Только с кнопок - мышкой.

17.05.2013, 00:02

+ управление кнопками (a, w, s, d).

@Денис Архипов · 18.05.2013, 06:02 **[ТС]**

А за что отвечает MapHeader?

18.05.2013, 06:23

Информация о карте:
1. ID - MAP1.0
2. SizeX, SizeY - Размеры карты

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Денис Архипов 1 / 1 / 0 Регистрация: 07.02.2013 Сообщений: 42
	16.05.2013, 23:18 [ТС]
	Огромнейшие тебе спасибо. Очень выручил. Можно задать пару вопросов? В каком формате сохраняется карта? Раньше сохранялось в txt файле. Там были два числа, которые отвечали за верхнюю и левую стенку локации. А как сейчас? И насчёт хождения. Там только мышкой можно нажимать на кнопки и ходить, или клавишами клавиатуры тоже? 0

angstrom
	16.05.2013, 23:26
	Сохранение карты переделано в бинарный формат: 1. ID файла - 6 байт 2. 2 значения размерность карты - 8 байт. 3. данные. Только с кнопок - мышкой.

@Денис Архипов 1 / 1 / 0 Регистрация: 07.02.2013 Сообщений: 42
	18.05.2013, 06:02 [ТС]
	А за что отвечает MapHeader? 0

angstrom
	18.05.2013, 06:23
	Информация о карте: 1. ID - MAP1.0 2. SizeX, SizeY - Размеры карты