Нужна помощь! Файл сохраняется не там где надо!

← →
LEXX_55 (2004-11-10 11:55) [0]

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

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 а не там где находиться исполняемый файл.
Помогите кто может. Заранее спасибо.

← →
TUser © (2004-11-10 11:57) [1]

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

← →
Reindeer Moss Eater © (2004-11-10 11:58) [2]

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

← →
Jel © (2004-11-10 11:58) [3]

> fName := "config.cfg";

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

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

← →
Семен Сорокин © (2004-11-10 11:59) [4]

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

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

← →
LEXX_55 (2004-11-10 12:09) [6]

сенкс

Нужна помощь! Файл сохраняется не там где надо! Найти похожие ветки