Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Вниз

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

 
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)


 
ЮЮ ©   (2004-11-10 12:04) [5]

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


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

сенкс



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.036 c
1-1099510216
tormoz
2004-11-03 22:30
2004.11.21
Работа с Word (туда и обратно)


3-1098274206
Alexey A
2004-10-20 16:10
2004.11.21
ADO + BLOB


3-1098451639
MORA
2004-10-22 17:27
2004.11.21
Handling Exceptions


14-1099572742
syte_ser78
2004-11-04 15:52
2004.11.21
подскажите неумному о EXEC-e


8-1092503031
Batoon
2004-08-14 21:03
2004.11.21
Помогите определиться





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский