Sürücü listesi oluşturma checked sorunu olmuyor lütfen..

[SimaWB]

Yazdığınız gibi iki farklı if kontrolü işinizi görmesi gerekir. Ama bu gibi durumlarda case kullanmak daha iyi olabilir.

[SimaWB]

Neden kullanamıyorsunuz?

[PROGRAMADOR]

If yerine case'i şu şekilde kullanabilirsiniz:

Kod: Tümünü seç

if GetDriveType(PChar(S)) = DRIVE_RAMDISK then ImageIndex := 3;
if GetDriveType(PChar(S)) = DRIVE_FIXED then ImageIndex := 3;
if GetDriveType(PChar(S)) = DRIVE_REMOTE then ImageIndex := 0;
if GetDriveType(PChar(S)) = DRIVE_CDROM then ImageIndex := 1;
if GetDriveType(PChar(S)) = DRIVE_REMOVABLE then ImageIndex := 2;

Bu kısmın yerine şunları yazın:

Kod: Tümünü seç

Case of GetDriveType(PChar(S))
	DRIVE_RAMDISK: ImageIndex := 3;
	DRIVE_FIXED: ImageIndex := 3;
	DRIVE_REMOTE: ImageIndex := 0;
	DRIVE_CDROM: then ImageIndex := 1;
	DRIVE_REMOVABLE ImageIndex := 2;
End;

Ancak değişen bir şey olacağını sanmıyorum. Kodun tamamını paylaşabilir misiniz?

[G.Arkas]

If-Then kullanımını iyi öğrenin. if then ile başlayan cümlede eğer devamında begin kullanmazsanız sadece bir altında ki satır koşuldan etkilenir. Ama eğer sizin kodunuzu şu şekilde çevirirseniz kod çalışacaktır.

Kod: Tümünü seç

if GetDriveType(PChar(S)) = DRIVE_RAMDISK then
begin //--- end e kadar olan tüm kısım koşul içerisine dahil edilir.
ImageIndex := 3;
checked := true;
end;
end;