Forum: Sonstige Fragen zu Delphi
by -187-,
1. Mär 2007
Hab mein Beitrag nochma editiert. Der Fehler kommt:
. erwartet aber ; gefunden..
Das Programm geht ja noch weiter ich kann da kein end. hinsetzen...
Hier nochma der Code
Forum: Sonstige Fragen zu Delphi
by -187-,
1. Mär 2007
Ich weiss nicht ob du das getestet hast aber bei mir kommt folgender Fehler:
..
....
.....
if Length(Drives) > 0 then
for Idx := Low(Drives) to High(Drives) do
WriteLn(Drives);
end;
Forum: Sonstige Fragen zu Delphi
by -187-,
1. Mär 2007
Hm also den versteh ich nicht. Würde gern mit dem Code weiterarbeiten:
var
Drive:Char;
begin
for Drive := 'A' to 'Z' do
begin
case GetDriveType(PChar(Drive + ':/')) of
DRIVE_FIXED: ComboBox1.Items.Add(Drive+':\');
Forum: Sonstige Fragen zu Delphi
by -187-,
1. Mär 2007
Habe jetzt folgenden Code gefunden:
program Project1;
{$APPTYPE CONSOLE}
uses
System.IO;
var
Forum: Sonstige Fragen zu Delphi
by -187-,
1. Mär 2007
Hm ok hab ich auch noch nich mit gearbeitet, werd das mal versuchen das wird wohl sowas sein:
var
HDD: Array of Byte;
Drive:Char;
begin
for Drive := 'A' to 'Z' do
begin
case GetDriveType(PChar(Drive + ':/')) of
Forum: Sonstige Fragen zu Delphi
by -187-,
1. Mär 2007
möchte sie nich in der console haben, möchte sie als variable sodass eien prozedur mit den vorhandenen laufwerken arbeiten kann
Forum: Sonstige Fragen zu Delphi
by -187-,
1. Mär 2007
var
Drive:Char;
begin
for Drive := 'A' to 'Z' do
begin
case GetDriveType(PChar(Drive + ':/')) of
DRIVE_FIXED: ComboBox1.Items.Add(Drive+':\');
end;
end;