Ошибка

[legendary]

Почему при выводе на екран (будь то на memo,label,messagebox,...) постоянно выносит ошыбки типу(смотри ссилку):


Например какая разница между:

var
DriveType : byte;
begin
DriveType := GetDriveType(PChar(Drive));
case DriveType of
0: Result := '?';
1: Result := 'Path does not exists';
Drive_Removable: Result := 'Removable';
Drive_Fixed: Result := 'Fixed';
Drive_Remote: Result := 'Remote';
Drive_CDROM: Result := 'CD-ROM';
Drive_RamDisk: Result := 'RAMDisk'
else Result := 'Unknown';
end;
end;

и

i:char;
begin
for i:='A' to 'Z' do
begin
case GetDriveType(pchar(i)) of    // здесь ошибка
0: form1.Memo1.Lines.add ('?');
1: form1.Memo1.Lines.add('Path does not exists');
Drive_Removable: form1.Memo1.Lines.add('Removable');
Drive_Fixed: form1.Memo1.Lines.add('Fixed');
Drive_Remote: form1.Memo1.Lines.add('Remote');
Drive_CDROM: form1.Memo1.Lines.add('CD-ROM');
Drive_RamDisk: form1.Memo1.Lines.add ('RAMDisk')
else form1.Memo1.Lines.add('Unknown');
end;

[Stilet]

case GetDriveType(pchar(string(i+':'))) of

Надеюсь понятно почему?

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var DisksMask: DWORD;
    DriveType: UInt;
    i: byte;
    s:string;
begin
 DisksMask := GetLogicalDrives;
 for i := 0 to 25 do
  if (GetLogicalDrives and (1 shl i)) <> 0 then
   begin
    s:=Chr(i+$41)+':\';
    DriveType:=GetDriveType(PChar(s));
    case DriveType of
     0:               s:=s+' - ?';
     1:               s:=s+' - Path does not exists';
     DRIVE_REMOVABLE: s:=s+' - Removable';
     DRIVE_FIXED:     s:=s+' - Fixed';
     DRIVE_REMOTE:    s:=s+' - Remote';
     DRIVE_CDROM:     s:=s+' - CD_ROM';
     DRIVE_RAMDISK:   s:=s+' - RAMDISK';
     else             s:=s+' - Unknown';
    end;
    memo1.Lines.Add(s)
   end;
end;