Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.13;
Скачать: CL | DM;

Вниз

Взаимодействие 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
14-39581
Amit
2003-02-27 07:21
2003.03.13
Модератор откликнись please...


14-39486
Skunk2000
2003-02-27 15:13
2003.03.13
Дельфя просит регистрацию! :(((


14-39467
Step[B.M.]
2003-02-27 01:00
2003.03.13
Помогите пожалуйста. Как этих два файла slider.pas и slider.res


1-39275
Maxus
2003-02-26 19:36
2003.03.13
Кака заставить TListBox не показывать полосу прокрутки?


8-39422
НаемНИК
2002-12-02 15:07
2003.03.13
Как указать не полный путь к Flash файлу?