Скачать: CL | DM;

Помогите правильно написать цикл перебора алфавита   Найти похожие ветки 

← →
Roman_S ©   (2007-03-04 08:45) [0]

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

---

← →
Atanas   (2007-03-04 08:48) [1]

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

---

← →
Atanas   (2007-03-04 08:49) [2]

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

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

---

← →
Roman_S ©   (2007-03-04 08:54) [3]

Благодарю!

---

← →
Roman_S ©   (2007-03-04 10:07) [4]

Блин, теперь не получается организовать:
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);

---

← →
Atanas   (2007-03-04 10:33) [5]

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

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

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

---

← →
Roman_S ©   (2007-03-04 10:47) [6]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.042 c