![]() |
AW: TDirectory.GetLogicalDrives
:thumb:@Delphi.Narium
Natürlich würde das reichen...8-) Habe es aber SO geschrieben um es "Sichtbar" zu machen was passiert...
Delphi-Quellcode:
uses DDsnippets;
procedure TForm1.Button1Click(Sender: TObject); begin ComboBox1.Items.Clear; // wäre auch nicht schlecht! oder? DriveDisplayNames(ComboBox1.Items); ComboBox1.ItemIndex := 0; end; |
AW: TDirectory.GetLogicalDrives
Zitat:
Delphi-Quellcode:
Und diese Abfolge kann "irgendwann" zu 'ner Schutzverletzung führen.
procedure TForm1.Button1Click(Sender: TObject);
var SL: TStringList; begin SL:=TStringList.Create; // wird erstellt try DriveDisplayNames(SL); // wird gefüllt ComboBox1.Items.Assign(SL); // wird zugewiesen - die Stringliste, nicht der Inhalt - Items zeigt also auf SL ComboBox1.ItemIndex:=0; finally SL.Free; // wird weggeworfen, obwohl oben zugewiesen. end; end; Zitat:
Enthielte die Methode DriveDisplayNames kein Clear, hieße sie bei mir AddDriveDisplayNames, damit man am Namen bereits erkennt, dass sie was hinzufügt. Hier müsste dann der Nutzer selbst für das Clear sorgen ;-) Ist aber alles irgenwie auch ein bisserl Geschmackssache. |
AW: TDirectory.GetLogicalDrives
Soweit ich weiß, ist die Methode Assign genau dazu da, damit hinterher beide Objekte nicht auf dieselbe Adresse zeigen, aber trotzdem denselben Inhalt haben. Die Adresse von ComboBox1.Items wird durch
Delphi-Quellcode:
nicht geändert, und SL kann bedenkenlos freigegeben werden. Gleiches gilt für die Methode AssignTo in die andere Richtung. Würden beide Objekte auf dieselbe Adresse zeigen, wäre die Methode Assign ziemlich sinnlos, weil man dasselbe durch
ComboBox1.Items.Assign(SL);
Delphi-Quellcode:
erreichen könnte.
ComboBox1.Items := SL;
![]() Zitat:
Dalai |
AW: TDirectory.GetLogicalDrives
Zitat:
Delphi-Quellcode:
führ via Setter zu Items (SetItems) auch ein
ComboBox1.Items := SL;
Delphi-Quellcode:
aus. Und ein [DELPHI]ComboBox1.Items.Free[DELPHI] führt nur zu einer leeren Items-Liste (auch wenn es nicht dieselbe wie vorher ist).
Items.Assign
|
AW: TDirectory.GetLogicalDrives
Liste der Anhänge anzeigen (Anzahl: 2)
Hallo Freunde, (oder *innen)
wg. Augen hab' ich übersehen, dass wir schon auf Seite 2 sind. Eure Diskussion hat nichts mit dem Fehler zu tun. Assign habe ichschon oft benutzt und das ursprüngliche Objekt mit Free frei gegeben und das läuft!
Delphi-Quellcode:
Die Schleife wird falsch beendet. Siehe Screenshots. Den gesamten Source hat Friedrich ja hoch geladen.
procedure MultiSzToStrings(const MultiSz: PChar;
const Strings: Classes.TStrings); {Splits out individual strings from given 'MultiSz' strings buffer and adds each string to the given string list. A MultiSz string is a sequence of #0 delimited strings terminated by an extra #0 character. Does nothing if string list or MultiSz buffer are nil.} var P: PChar; // pointer to strings in buffer begin // Do nothing in MultiSz is nil if not Assigned(MultiSz) then Exit; // Scan thru #0 delimited strings until #0#0 found P := MultiSz; while P^ <> #0 do begin // add string to list Strings.Add(P); // move pointer to start of next string if any Inc(P, SysUtils.StrLen(P) + 1); //hier kracht es bei Durchlauf >= 2. end; end; Willie. |
AW: TDirectory.GetLogicalDrives
Auf den ersten Blick sieht deine Schleife nicht so aus, als wenn sie nicht gehen sollte.
Ein Problem mit ANSI <-> Unicode hast du nicht zufällig? Per se: ein #0 = String-Ende zwei #0#0 = Listen-Ende bzw. ist eigentlich ein leerer String '' ist das Ende (nichts zwischen zwei #0) und natürlich auch ein NIL (komplett leere Liste) noch ein paar mögliche Varianten:
Delphi-Quellcode:
while P^ <> #0 do begin
Strings.Add(P); P := StrEnd(P) + 1; end; while P <> '' do begin S := P; Strings.Add(S); Inc(P, Length(S) + 1); end; while True do begin S := P; if S = '' then Break; Strings.Add(S); Inc(P, Length(S) + 1); end; |
AW: TDirectory.GetLogicalDrives
Inzwischen kann ich die AV an sich nachvollziehen. Ab dem dritten Durchlauf der Funktion DriveDisplayNames bekomme ich folgende AV, reproduzierbar:
Code:
Keine der von himitsu gebotenen Varianten für MultiSzToStrings ändert daran etwas.
---------------------------
Project1 --------------------------- Access violation at address 004030B5 in module 'Project1.exe'. Read of address 00000054. --------------------------- OK --------------------------- Die AV tritt nicht auf, wenn ich eines der folgenden Dinge tue:
Bemerkenswert ist noch Folgendes: Mein System hat die Laufwerke B: bis Y: (mit einigen Lücken). Bei den ersten beiden Aufrufen werden alle angezeigt, ab dem dritten geht's nur noch bis einschließlich H: - es fehlt die Hälfte aller Laufwerke. Grüße Dalai |
AW: TDirectory.GetLogicalDrives
Zitat:
Zitat:
Es ist mir im Laufe der Jahre immer wieder mal in Programmen sporadisch passiert, das so ein Effekt auftrat, auch wenn er bei genauer Betrachtung des Quelltextes, einschließlich dem aller aufgerufenen Methoden, nicht auftreten darf. Da ist "irgendwo innendrinnen in den Tiefen des Genutzten" was nicht in Ordnung, aber keine Ahnung wo und warum und wieso und weshalb. Weiß halt nur aus Erfahrung: Es kann zu einem Problem führen, es muss nicht. Und: Eigentlich darf es zu keinem Problem führen. Die schleierhaft verkürzte Liste ist auch ein Hinweis auf das Problem, nur das dort halt nicht alles Weg ist (= Schutzverletzung) sondern nur eine Teilmenge. Hab' solche Probleme schon häufiger gehabt, die, soweit ich mich erinnere, immer irgendwo auch mit dem Aufruf von Windowsfunktionen im Zusammenhang standen. Aus purer Delphisicht ist da nichts falsch, egal ob mit oder ohne zusätzlicher Stringliste. Grundsätzlich sind das Assign(Stringliste) und der Free dahinter vollkommen in Ordnung, aber leider manchmal doch irgendwie unergründbar falsch. |
AW: TDirectory.GetLogicalDrives
Delphi-Quellcode:
Liegt der Fehler vielleicht daran, dass +1 hinzugezählt wird, auch wenn P^ bereits #0 ist?
while P^ <> #0 do
begin // add string to list Strings.Add(P); // move pointer to start of next string if any Inc(P, SysUtils.StrLen(P) + 1); //hier kracht es bei Durchlauf >= 2. end; Muss es nicht heissen "while P^ > #0 do" oder so ähnlich? Kürzlich hatte ich nämlich einen ähnlichen Fehler. Der hier ist schwieriger erkennbar, weil mit Pointern gearbeitet wird. Sowas ist doch bei Sachen, die so wenig Speicher belegen irgendwie absurd. |
AW: TDirectory.GetLogicalDrives
Wenn P^ #0 wäre, wäre die Schleife bereits verlassen worden.
Es muss +1 addiert werden, um auf den Beginn des folgenden (Teil)Strings zu kommen. Am Ende des Gesamtstrings ist sowieso ein Doppelnullbyte. Grundsätzlich ist der Code schon richtig. Addiert man die +1 nicht, bricht die Schleife nach dem ersten Laufwerk ab (weil der Pointer auf dem Nullbyte nach dem ersten Laufwerk steht). Ich hab sogar eine ähnliche Variante aus einem anderen Projekt probiert:
Delphi-Quellcode:
Aber auch das ändert nichts.
procedure SplitMultiSZToStringList(AStr: PChar; const sl: TStringList);
begin if Assigned(AStr) then begin sl.Clear; while AStr[0] <> #0 do begin if AStr <> '' then sl.Add(AStr); Inc(AStr, StrLen(AStr) + 1) end; end; end; Interessant auch: Nutzt man die ANSI-Funktion ![]() Grüße Dalai |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz