Discussion :

[j.p.mignot]

Chose qui était si simple sous DOS!

Comment peut on faire une boucle du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
for x:='a' to 'z' do begin end;

et récupérer les infos sur les unités logiques correspondantes à savoir

absent ( par exemple pas de disquette dans a, pas de CD , .. )

type de support ( disquette, HD, CD, clef USB, .. )

Merci pour vos réponses!

[Cl@udius]

Salut

Oui, il suffit de définir x de type Char.

@+

[j.p.mignot]

évidemment!

ce n'est pas la question!

Je n'ai pas la fonction du type GetUnitInfo(x) qui permette de me retourner les paramètres relatifs à l'unité logique x.
Ce que j'utilisais sous DOS pour accéder à ses infos ainsi que bien d'autre comme copies de la FAT, type de FAT, seccteur début-fin de l'unité logique, ...
était de l'accès disque direct qui est refusé sous window

[Cl@udius]

évidemment!

ce n'est pas la question!

Euh, ta question était au départ:

Comment peut on faire une boucle du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
for x:='a' to 'z' do begin end;

D'où ma réponse.

Mais as-tu regardé dans la FAQ voir si tu n'y trouverais pas ton bonheur (en partie du moins). Ici.

@+ Claudius

[j.p.mignot]

MERCI

Je m'étais un peu mal exprimé

pour remarque
le code proposé ( que je n'ai pas encore fais tourner)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
function DriveType(Drive: String): String;
begin
  case GetDriveType(Pchar(Drive)) of
  DRIVE_REMOVABLE : Result := 'Lecteur de disquette';
  DRIVE_FIXED     : Result := 'Lecteur de disque';
  DRIVE_REMOTE    : Result := 'Lecteur distant';
  DRIVE_CDROM     : Result := 'Lecteur de CD-ROM';
  DRIVE_RAMDISK   : Result := 'RamDisk'
else
  Result := 'Inconnu';
end;

est legèrement incomplet:
il faudrait mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
function DriveType(Drive: String): String;
begin
  case GetDriveType(Pchar(Drive)) of
  DRIVE_REMOVABLE : Result := 'Lecteur de disquette';
  DRIVE_FIXED     : Result := 'Lecteur de disque';
  DRIVE_REMOTE    : Result := 'Lecteur distant';
  DRIVE_CDROM     : Result := 'Lecteur de CD-ROM';
  DRIVE_RAMDISK   : Result := 'RamDisk'
else
  Result := 'Inconnu';
 
end;
 
(* FIN DE ROUTINE ABSENT *)
DriveType:=Result;
end;
(*------------------------*)

[Cl@udius]

Exact, je remonte l'info.

[Edit]
Euh non j'ai réagit trop vite, ce code est correct.
L'affectation d'une valeur à la variable result est amplement suffisante pour obtenir un résultat correct.

@+

[j.p.mignot]

oui...

Personnellement je préfère remettre en clair nom_fonction:=---
car j'utilise encore (occasionnellement) du TurboPascal et là, ce type de défauts n'est pas nécéssairement implicite.

il manque tout de même le dernier "end"

[Cl@udius]

il manque tout de même le dernier "end"

Là par contre je suis entièrement d'accord.
Donc je remonte l'info. Merci.