TDirectory.GetLogicalDrives

[himitsu]

Funktionell stimmt es ja, aber TAnsiStrings und Dest.Add(string(...)) passt ja garnicht
und soeinen sinnlosen Fehler hätte ich nicht von den JEDI erwartet, vor allem da der Compiler das eigentlich auch bemängeln sollte. (diese String-Zuweisung an einen AnsiString-Parameter, seit D2009+)


Da hier das Problem eh nur bei der Unicode-Version passieren sollte:
Das ANSI und die string(AnsiString(-Casts weg, schon ergibt das eine PChar-Version. (ab D2009 somit Unicode)

[hoika]

Hallo,
mir ging es eher um das StrEnd statt StrLen.
Ich glaube der Buffer entspricht nicht Vorgaben.
Aber mit einer lokalen Variable für StrLen ähnlich dem JEDI-Code sollte das rauszufinden sein.
Und wenn das noch schön reproduzierbar ist, sollte der Fehler schnell zu finden sein.

PS: Mein JEDI ist schon ziemlich alt.
Viell. wurdeder String-TypeCastbschon gefixt, falls es ein Fehler ist.

[Dalai]

Zitat von hoika:

mir ging es eher um das StrEnd statt StrLen.

himitsu hatte ja eine Variante mit StrEnd gepostet - es ändert nichts.

Da die Unit ja ein paar zusätzliche Funktionen bereitstellt, kann man kann die Funktion DriveDisplayNames auch so schreiben:

Delphi-Quellcode:

procedure DriveDisplayNames(const List: TStrings);
  {Gets list of display names for all the system's drives and stores in a given
  string list.}
var i: byte;
begin
    for i:= 0 to 25 do begin
        if IsValidDriveNum(i) then
            List.Add(DriveDisplayName(DriveRootPath(i)));
    end;
end;

Das funktioniert bei mir zuverlässig und ohne AV nach dem x-ten Aufruf.

@Willie1:
Such dir einen Weg aus, es sind ja bereits genügend Varianten gepostet worden.

Grüße
Dalai

[Willie1]

Hallo,
da hat sich mein Thema verselbständigt. Die Methode hat einen tief versteckten Fehler.
Warum soll ich mich damit herumschlagen. Ich habe eine Lösung siehe # 21.
Willie.

[Dalai]

Es ist zwar nicht auszuschließen, dass die Funktion MultiSzToStrings einen Fehler hat, aber andererseits haben jetzt mehrere kundige Leute drübergeschaut, rumprobiert und diskutiert und keiner hat ein grundlegendes Problem erkennen können.

Aber meine Variante benutzt diese Funktion eben nicht, um dem Problem aus dem Weg zu gehen. Letztlich ist deine Lösung sehr ähnlich, nur eben gekapselt in der Klasse TDirectory und als Rückgabe TStringDynArray statt TStringList.

Von "Herumschlagen" kann da also keine Rede sein.

Grüße
Dalai

[Willie1]

Zitat von Dalai:

Aber meine Variante benutzt diese Funktion eben nicht, um dem Problem aus dem Weg zu gehen. Letztlich ist deine Lösung sehr ähnlich, nur eben gekapselt in der Klasse TDirectory und als Rückgabe TStringDynArray statt TStringList.

Hallo Dalai, ich wollte eure Kompetenz absolut nicht in Frage stellen.
Du hast Recht, man kan auch TStringList nehmen. Das Abfragen der Lw hab' ich schon mit Delphi 6 unternommen nur die Volume-Namen nicht.

Bleibt gesund und schönen Abend
Willie.

[Frickler]

Zitat von hoika:

PS: Mein JEDI ist schon ziemlich alt.
Viell. wurdeder String-TypeCastbschon gefixt, falls es ein Fehler ist.

Ja. Jetzt gibt es in 3 Funktionen in 3 Units:
In JclAnsiStrings.pas steht procedure MultiSzToStrings(const Dest: TJclAnsiStrings; const Source: PAnsiMultiSz);
In JclWideStrings.pas steht procedure MultiSzToStrings(const Dest: TJclWideStrings; const Source: PWideMultiSz);
In JclStrings.pas steht procedure MultiSzToStrings(const Dest: TStrings; const Source: PMultiSz);

Und in keiner der Varianten werden Strings gecastet.