Как указать путь к файлу в функции assignfile

@Rolion · Регистрация: 04.01.2011

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

Всем привет! Как указать путь к файлу в функции assignfile и почему на строчках

Delphi

  readln(st);
  assignfile(t1,st);
  assignfile(t2,'highway.txt');
  reset(t1);
  rewrite(t2);

программа пишет 'File not found', хотя оба файла лежат в той же папке, что и exe-шник. Или же он ищет эти файлы в другом месте? И как вообще программно узнать папку, из которой выполняется программа? В общем, помогите советами, кто сможет.

Одиночка · 08.11.2012, 20:38

Delphi

1	s:=ExtractFilePath(Application.ExeName); //Это путь в папку программы без последнего слэша

Если просто указано имя файла - должна искать в папке программы.
Скорее всего ошибку выдаёт на строке:

Delphi

1	reset(t1);

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

@саша40 · 08.11.2012, 21:03

Да что вы паритесь. Чтобы небыло ошибок пишите это:

Delphi

1
2
3

//бла-бла-бла
AssignFile(t1, ExtractFilePath(Application.ExeName) + 'highway.txt');
//бла-бла-бла

@Rolion · 09.11.2012, 23:28 **[ТС]**

Переписал так:

Delphi

  st:=Edit1.Text;
  AssignFile(t1, ExtractFilePath(Application.ExeName) + st);
  AssignFile(t2, ExtractFilePath(Application.ExeName) + 'highway.txt');
  reset(t1);   //здесь вылетает
  rewrite(t2);

На школьных компах все работало, дома та же проблема -- 'File not found'.

@саша40 · 09.11.2012, 23:37

Ошибка тебе сразу говорит, что файл не найден. Так положи свой файл в папку с exe этой программы.

@Rolion · 10.11.2012, 00:14 **[ТС]**

Я так с самого начала делал

@FIL · 10.11.2012, 00:31

Попробуй:

Delphi

1	AssignFile(t2, ExtractFilePath(Application.ExeName) + '\highway.txt');

@Mawrat · 10.11.2012, 00:51

Сообщение от Rolion

Я так с самого начала делал

Значит в переменной st записано не то, что надо.

Сообщение от gorfil

AssignFile(t2, ExtractFilePath(Application.ExeName) + '\highway.txt');

Здесь в строке '\highway.txt' ведущий слеш не нужен. ExtractFilePath(Application.ExeName) возвращает путь со слешем в конце.

@FIL · 10.11.2012, 01:23

Сообщение от Mawrat

Здесь в строке '\highway.txt' ведущий слеш не нужен. ExtractFilePath(Application.ExeName) возвращает путь со слешем в конце.

Я обычно ставлю и все работает.
Хотя и без слеша работает (счас проверил).

@Mawrat · 10.11.2012, 01:28

Возможно в каких-то других ситуациях нужно было ставить ведущий слеш.

Но что касается ExtractFilePath() - эта функция удаляет в конце строки часть, которая идёт до первого справа слеша. А сам этот слеш оставляет.

@Rolion · 10.11.2012, 17:39 **[ТС]**

Сообщение от Mawrat

Значит в переменной st записано не то, что надо.

Я дебажил и смотрел, что там. Там то, что надо (имя файла.расширение)

Сообщение от Mawrat

Здесь в строке '\highway.txt' ведущий слеш не нужен. ExtractFilePath(Application.ExeName) возвращает путь со слешем в конце.

Пробовал и так, и так. Та же ошибка.

@Mawrat · 10.11.2012, 17:58

Rolion, я уже писал:

Сообщение от Mawrat

Значит в переменной st записано не то, что надо.

Что касается файла highway.txt - нет никакой разницы существует он или нет - всё равно он создаётся заново через вызов Rewrite(). А вот файл, путь к которому определяется с помощью переменной st, обязательно должен существовать. Потому что он открывается через вызов Reset(). Вот и надо проверить - что же такое записано в st? В st явно записано что-то неправильное. Поэтому файл и не находится.
---
Точку останова можно поставить на сроке

Delphi

1	AssignFile(t1, ExtractFilePath(Application.ExeName) + st);

и посмотреть, какое содержимое имеет переменная st.

@Rolion · 10.11.2012, 19:09 **[ТС]**

Уже делал так. Имя файла -- way.txt. Именно это и лежит в st.

@Mawrat · 10.11.2012, 19:23

О... я что-то не обратил внимание.

Смотри:

Delphi

  //Вот здесь конечно будет ошибка! Файл-то ещё не открыт. Да и имя у него
  //должно быть составлено исходя из пути к папке с программой. - Это всё делается ниже.
  readln(st);
  
  assignfile(t1,st);
  assignfile(t2,'highway.txt');
  reset(t1);
  rewrite(t2);

Одиночка · 10.11.2012, 19:37

Mawrat: Да это он в консоли вводит имя файла с клавиатуры, похоже.

@Rolion · 10.11.2012, 19:49 **[ТС]**

Сообщение от Rolion

На школьных компах все работало, дома та же проблема -- 'File not found'.

Нет, уже не в консоли.

@Mawrat · 10.11.2012, 19:51

Сообщение от Одиночка

Mawrat: Да это он в консоли вводит имя файла с клавиатуры, похоже.

Точно.

Rolion, в общем я сейчас проект приложу с примером.

@Mawrat · 10.11.2012, 20:00

Вот пример.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  t1, t2 : TextFile;
  S, st : String;
begin
  St := ExtractFilePath(ParamStr(0)) + 'way.txt';
  AssignFile(t1, st);
  AssignFile(t2, ExtractFilePath(ParamStr(0)) + 'highway.txt');
  reset(t1);
  rewrite(t2);
  while not Eof(t1) do begin
    Read(t1, S);
    Write(t2, S);
    if Eoln(t1) and not Eof(t1) then begin
      Readln(t1);
      Writeln(t2);
    end;
  end;
  CloseFile(t1);
  CloseFile(t2);
end;

@Rolion · 10.11.2012, 20:51 **[ТС]**

Ааааааааааа!!!!! Опять ни фига не работает! Все перепробовал! В конце недели отчёт! Помогите! Писал уже по всякому. Думал, он путь не может прописать нормально, но и там всё в порядке. Вроде простейшая часть, но ни в какую.

@FIL · 10.11.2012, 20:54

Программу выложи.

@Rolion 14 / 14 / 8 Регистрация: 04.01.2011 Сообщений: 195
	10.11.2012, 19:09 [ТС]	13
	Уже делал так. Имя файла -- way.txt. Именно это и лежит в st. 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	10.11.2012, 19:37	15
	Mawrat: Да это он в консоли вводит имя файла с клавиатуры, похоже. 0

@Rolion 14 / 14 / 8 Регистрация: 04.01.2011 Сообщений: 195
	10.11.2012, 19:49 [ТС]	16
	Сообщение от Rolion На школьных компах все работало, дома та же проблема -- 'File not found'. Нет, уже не в консоли. 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	09.11.2012, 23:37	5
	Ошибка тебе сразу говорит, что файл не найден. Так положи свой файл в папку с exe этой программы. 0

@Rolion 14 / 14 / 8 Регистрация: 04.01.2011 Сообщений: 195
	10.11.2012, 00:14 [ТС]	6
	Я так с самого начала делал 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	10.11.2012, 00:51	8
	Сообщение от Rolion Я так с самого начала делал Значит в переменной st записано не то, что надо. Сообщение от gorfil AssignFile(t2, ExtractFilePath(Application.ExeName) + '\highway.txt'); Здесь в строке '\highway.txt' ведущий слеш не нужен. ExtractFilePath(Application.ExeName) возвращает путь со слешем в конце. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	10.11.2012, 01:23	9
	Сообщение от Mawrat Здесь в строке '\highway.txt' ведущий слеш не нужен. ExtractFilePath(Application.ExeName) возвращает путь со слешем в конце. Я обычно ставлю и все работает. Хотя и без слеша работает (счас проверил). 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	10.11.2012, 01:28	10
	Возможно в каких-то других ситуациях нужно было ставить ведущий слеш. Но что касается ExtractFilePath() - эта функция удаляет в конце строки часть, которая идёт до первого справа слеша. А сам этот слеш оставляет. 2

@Rolion 14 / 14 / 8 Регистрация: 04.01.2011 Сообщений: 195
	10.11.2012, 17:39 [ТС]	11
	Сообщение от Mawrat Значит в переменной st записано не то, что надо. Я дебажил и смотрел, что там. Там то, что надо (имя файла.расширение) Сообщение от Mawrat Здесь в строке '\highway.txt' ведущий слеш не нужен. ExtractFilePath(Application.ExeName) возвращает путь со слешем в конце. Пробовал и так, и так. Та же ошибка. 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	10.11.2012, 19:51	17
	Сообщение от Одиночка Mawrat: Да это он в консоли вводит имя файла с клавиатуры, похоже. Точно. Rolion, в общем я сейчас проект приложу с примером. 1

@Rolion 14 / 14 / 8 Регистрация: 04.01.2011 Сообщений: 195
	10.11.2012, 20:51 [ТС]	19
	Ааааааааааа!!!!! Опять ни фига не работает! Все перепробовал! В конце недели отчёт! Помогите! Писал уже по всякому. Думал, он путь не может прописать нормально, но и там всё в порядке. Вроде простейшая часть, но ни в какую. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	10.11.2012, 20:54	20
	Программу выложи. 0

Как указать путь к файлу в функции assignfile

Решение