Listbox mit Lieder füllen funktioniert nicht

[ConnorMcLeod]

Zitat von FrankJ28:

Ich gehe davon aus,

Stimmt schon, dass das logisch wäre, aber es steht nirgends. Also ...

[DeddyH]

Zitat von ConnorMcLeod:

Zitat von FrankJ28:

Ich gehe davon aus,

Stimmt schon, dass das logisch wäre, aber es steht nirgends. Also ...

Es steht im Ausgangspost.

[edit] Wie ist es denn so?

Delphi-Quellcode:

procedure MP3ListeFuellen(Folder: string; sl: TStrings);
var
  Rec : TSearchRec;
//  mp3List: TListBox;
begin
  Assert(Assigned(sl));
  sl.BeginUpdate;
  try
    Folder := IncludeTrailingPathDelimiter(Folder);
    sl.Clear;
    if SysUtils.FindFirst(Folder + '*.mp3', faAnyFile, Rec) = 0 then
      try
        repeat
          sl.Add(Rec.Name);
        until SysUtils.FindNext(Rec) <> 0;
      finally
        SysUtils.FindClose(Rec);
      end;
  finally
    sl.EndUpdate;
  end;
end;

[/edit]

[Metallicwar]

Hi, danke für die Rückmeldungen.
Bin auf Arbeit, werde mich heute Abend von zu Hause aus melden.

[FrankJ28]

Hallo,
bei mir funktioniert auch der OriginalCode..

@Detlef: Hattest Recht mit var, pointer
Ciao
Frank

[DeddyH]

Der Originalcode funktioniert aber nur, wenn man das Verzeichnis auch mit einem Backslash abschließt. Übergibt man als sl-Parameter nil, dann knallt es.

[FrankJ28]

schon klar, "bullshit in = bullshit out", ohne Backslash halt leere Liste

[DeddyH]

Siehste, deshalb stell ich sicher, dass das Dingen mit Backslash abschließt. Man muss ja immer mit dem Schlimmsten rechnen, am Ende gar mit Usern

[Luckie]

Zitat von DeddyH:

Man muss ja immer mit dem Schlimmsten rechnen, am Ende gar mit Usern

Die versuche ich eigentlich immer auszuschließen. Aber irgendwie setzt die mein Chef mit Kunden gleich. Keine Ahnung, wie der auf dieses abgefahrene Konzept kommt.

[FrankJ28]

Zitat von DeddyH:

am Ende gar mit Usern

Wenn man die User an die manuelle, ungeprüfte Eingabe lässt, muss man natürlich später dafür Sorge tragen