| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужна помощь! Файл сохраняется не там где надо! [D7, WinME, WinXP]

LEXX_55 ©   (2004-11-10 11:55:00) 

Есть незатейливый код:

procedure TfConfig.Button1Click(Sender: TObject);
var
 f: TextFile;
 fName: String[10];
 i: integer;
begin
 fName := 'config.cfg';
 AssignFile(f, fName);
 Rewrite(f);
 Writeln(f, label3.caption);
 for i:= 1 to (ValueListEditor1.RowCount - 1) do
 Writeln(f, ValueListEditor1.Cells[1, i]);
 CloseFile(f);
 Close;
end;

Label3.Caption := DirectoryListBox1.DirLabel

Почему-то файл сохраняется в директории указанной в DirectoryListBox1а не там где находиться исполняемый файл.
Помогите кто может. Заранее спасибо.

---

LEXX_55   (2004-11-10 12:09:00) [1]

сенкс

---

ЮЮ   (2004-11-10 12:04:00) [2]

следуя советам, не забудь исправить
fName: String [10];

---

Семен Сорокин   (2004-11-10 11:59:00) [3]

дык DirectoryListBox1 наверное поменял CurrentDir
задайте путь полность используя Application.ExeName или ParamStr(0)

---

Reindeer Moss Eater   (2004-11-10 11:58:00) [4]

Что бы файл сохранялся "там где надо", надо имя файла задавать "такое как надо"

---

Jel   (2004-11-10 11:58:00) [5]

> fName := 'config.cfg';

fName := ExtractFilePath(ParamStr(0)) + '\config.cfg';

Иначе файл сохраняется в текущем каталоге, а DirectiryListBox его меняет.

---

TUser   (2004-11-10 11:57:00) [6]

fName:={Полный путь к файлу}

---

Наверх