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

← →
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));
...

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

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