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

Вниз

Взаимодействие OpenDialog и функции DiskFree(0)   Найти похожие ветки 

 
Спрашивающий   (2003-03-03 01:10) [0]

Попробуйте положить на форму
TFilenameEdit из библиотеки Rx или стандартный
TOpenDialog(в взаимодействии с Edit и кнопкой)
ну и еще кнопку в обработчике которой
написать функцию определения свободного места на текущем диске

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption:=IntToStr(DiskFree(0));
end;

Затем откройте (посредством TFilenameEdit или
OpenDialog1(в взаимодействии с Edit)) любую страницу
из архива этого форума заранее скаченного например
D:\Delphi\Forum\forum-12.12.02\main.html или любой файл
из папки имеющей в своем имени 2 и более точки(или запятые)
И выполните Form1.Caption:=IntToStr(DiskFree(0));
Баг Вы увидете сами.
Это из за точек(запятых)(именно двух и более в любой
позиции строки пути!) - 12.12.02
потому что если их убрать баг исчезает.
Но почему именно дает сбой функция DiskFree(0)
и как избавиться от этой ошибки .


 
jack128   (2003-03-03 02:15) [1]

Вот код, которым тестил. Имя файла D:\Текстовый документ.te.err.rwer.wer.txt - точек достаточно ;-)

Все норма так что ищи грабли в другом месте

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
edit1.text := OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Caption:=IntToStr(DiskFree(0));
end;


 
Спрашивающий   (2003-03-03 02:50) [2]

Попробуйте открыть в этом же каталоге сохраненную страницу этой
ветки.


 
Спрашивающий   (2003-03-03 03:59) [3]

Уточню - каталог должен содержать точки например
C:\Be.t.ta\Файл.htm



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

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

Наверх





Память: 0.55 MB
Время: 0.038 c
14-39481
}{enon
2003-02-27 14:51
2003.03.13
Вопрос по массивам.


1-39378
Kair
2003-03-02 21:29
2003.03.13
Форма (контуры) формы


14-39479
Fishka
2003-02-27 11:30
2003.03.13
Регистрация и разрегистрация


14-39522
iNew
2003-02-26 05:20
2003.03.13
При попытке установить компонент выдаетсф Fatal Error:


14-39483
Jony
2003-02-27 13:15
2003.03.13
Почему





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский