Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Delphi - vypis adresaže do StringList

Zdravím.
Zatim zkoušim do memo.
Ty první 2 řadky mně tam serou. Jsou to ty podadresaře xxxx\xxx\
Nějaký jiný zpusob, jak na to?
Děkují.


begin
  Memo1.Clear;
  TS := TStringList.Create;

   // if FindFirst('d:\*', faAnyFile, rec) = 0 then
      if FindFirst('e:\xxxx\xxxt\source\*', faAnyFile, rec) = 0 then
      begin
        repeat
          Memo1.Lines.Add(rec.Name);
          until FindNext(rec) <> 0;
          FindClose(rec);
      end;             
Předmět Autor Datum
Ja by som za repeat doplnil ešte jednu podmienku v zmysle: if rec.Name = "." or rec.Name = ".." then…
pozorovateľ 25.12.2022 17:38
pozorovateľ
if rec.Name = "." then přeskoč if rec.Name = ".." then přeskoč
dsa 25.12.2022 17:39
dsa
Ja by som šiel na to takto: System.IOUtils.TDirectory.GetFiles sú tam aj príklady použitia, ak by… poslední
pme 25.12.2022 18:30
pme

Zpět do poradny Odpovědět na původní otázku Nahoru