|
 | | |
| Autor | Správa |
|---|
mysacek
Užívateľ
Založený: 04.09.2009
Príspevky: 48
 |
Ahojte,
potreboval by som vediet spravit v delphach taku vec, aby som si vedel vybrat nejaku suborovu zlozku a aby sa mi vsetky subory v tejto zlozke zapisali do napr. Mema.
Dakujem. |
| |
  |
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1049
|  Zaslal: So 05.09.09 11:16 |   |
Na formulári nech je Memo, Button a Edit, v ktorom bude cesta požadovanej zložky. V udalosti OnClick buttonu nech je tento kód:
| kód: | procedure TForm1.Button1Click(Sender: TObject);
var
found: integer;
searchRec: TSearchRec;
begin
found:= FindFirst(Edit1.Text + '\*.*', faAnyFile, searchRec);
while (found = 0) do begin
if ((searchRec.Name <> '.') and (searchRec.Name <> '..')) then
Memo1.Lines.Add(searchRec.Name);
Found := FindNext(searchRec);
end;
FindClose(searchRec);
end; |
|
| |
 |
|
mysacek
Užívateľ
Založený: 04.09.2009
Príspevky: 48
| | Zaslal: Ne 06.09.09 15:45 | |
| Fico napísal: | Na formulári nech je Memo, Button a Edit, v ktorom bude cesta požadovanej zložky. V udalosti OnClick buttonu nech je tento kód:
| kód: | procedure TForm1.Button1Click(Sender: TObject);
var
found: integer;
searchRec: TSearchRec;
begin
found:= FindFirst(Edit1.Text + '\*.*', faAnyFile, searchRec);
while (found = 0) do begin
if ((searchRec.Name <> '.') and (searchRec.Name <> '..')) then
Memo1.Lines.Add(searchRec.Name);
Found := FindNext(searchRec);
end;
FindClose(searchRec);
end; |
|
Dakujem:)
a nevies este prikaz, pomocou ktoreho by som vedel rozlysit, ci sa jedna o subor alebo o dalsiu zlozku? |
| |
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1049
| | Zaslal: Ne 06.09.09 20:07 | |
Ak sa jedná o zložku, tak hodnota Attr recordu TSearchRec nadobudne hodnotu faDirectory. Malý príklad:
| kód: | if (searchRec.Attr = faDirectory) then Memo1.Lines.Add(searchRec.Name + ' --> zložka')
else Memo1.Lines.Add(searchRec.Name + ' --> súbor'); |
|
| |
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
