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

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

Помогите правильно написать цикл перебора алфавита [D7]

Roman_S ©   (2007-03-04 08:45:00) 

Помогите правильно написать цикл перебора алфавита:
for Bukva:='A' to 'Z' do begin
!!!?

---

Roman_S   (2007-03-04 10:47:00) [1]

Спасибо-о-о-о!!!!
%~)

---

Atanas   (2007-03-04 10:33:00) [2]

> Пишет, что SizeFree объявлена, но не используется

Правильно пишет. Она действительно не используется, по крайней мере в указанном фрагменте.
На сколько я понял вам по имени папки нужно узнать количество свободного места на диске, содержащем папку?
Тады вот-так :

var
 Dir:string;
 FreeSpace: Int64;
...
 FreeSpace:=DiskFree((Ord(ExtractFileDrive(Dir)[1])-Ord('A')+1));
...

---

Roman_S   (2007-03-04 10:07:00) [3]

Блин, теперь не получается организовать:
var
Bukva:char;
...
i:=1;
for Bukva:='A' to 'Z' do
begin
if ExtractFileDrive(Dir)=Bukva+':'
 then begin
  SizeFree := DiskFree(i);
  break;
 end;
i:=i+1;
end;
...
Пишет, что SizeFree объявлена, но не используется
И как "подружить" Char и String в данном случае?
if ExtractFileDrive(Dir)='C:' then SizeFree := DiskFree(3);
if ExtractFileDrive(Dir)='D:' then SizeFree := DiskFree(4);
if ExtractFileDrive(Dir)='E:' then SizeFree := DiskFree(5);
if ExtractFileDrive(Dir)='F:' then SizeFree := DiskFree(6);

---

Roman_S   (2007-03-04 08:54:00) [4]

Благодарю!

---

Atanas   (2007-03-04 08:49:00) [5]

Ой, очепятка :-)

var
Bukva:char;
...
for Bukva:='A' to 'Z' do
...

---

Atanas   (2007-03-04 08:48:00) [6]

var
Bukva:char;
...
for c:='A' to 'Z' do
...

---

Наверх