TDirectory.GetLogicalDrives

[Delphi.Narium]

Zitat von FriedrichAT:

@Delphi.Narium
Natürlich würde das reichen...
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;

Ja aber:

Delphi-Quellcode:

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;

Und diese Abfolge kann "irgendwann" zu 'ner Schutzverletzung führen.

Zitat von FriedrichAT:

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;

Das Clear täte ich jetzt nicht hier schreiben, da ich davon ausgehe, dass eine Methode, die die Aufgabe hat eine Stringliste zu befüllen, gefälligst selbst dafür sorgt, dass anschließend nur der von ihr erwartete Inhalt in der Stringliste enthalten ist. Daher gehört das Clear für meine Begriffe in die Methode DriveDisplayNames. Wenn dem nicht so wäre und ich sie in 1000den Programmen nutze, müsste ich 1000de Male das Clear schreiben (und alle Nutzer darüber informieren, dass sie vor dem Aufruf der Methode gefälligst ein Clear zu schreiben haben), so aber nur einmal. Bin halt faul

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.