Listen / Dateilisten

[nailor]

Hi!

Ich weiß nicht genau ob es hier hergehört, und bin auch nicht so ganz von der Professionalität des Codes überzeugt. Aber da es immer mal wieder Fragen in die Richtung gab, stell ich es mal hierher, kann ja jeder nen Bogen drum machen / den Code zerhacken, wie er will.

Jedenfalls kann man mit dem Code (für meine Augen) praktischer Listen machen als mit allem anderen, was ich bisher gesehen habe. Ich hab zwar nicht alles gesehen, aber soviel, dass ich irgendwann selber was gecoded habt.
Und zweitens kann man als "special feature" - sakura sei dank - sehr schöne Dateilisten mit Dateiname, Ordner/Datei und Dateigröße erstellen.

Das geht damit so einfach:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x: TnlrFileList;
  i: integer;
begin
  Memo1.Clear;

  x := TnlrFileList.Create;
  x.AddData(Edit1.Text, CheckBox1.Checked);

  Memo1.Visible := false;
  for i := 0 to pred(x.Count) do
    Memo1.Lines.Append(x[i].astring + ' ||||||| ' + inttostr(x[i].acard));
  Memo1.Visible := true;
end;

zum Bleistift...

so der ganze Code hängt an, weil es Leute gibt, die die Ende-Taste nicht kennen und dann zulange Scrollen müssten.

Michael

[edit=Chakotay1308]Zip-Version angehängt. Mfg, Chakotay1308[/edit]