 | | |
 | Stránka: 1 z 1
| [ Príspevkov: 4 ] | |
| Autor | Správa |
|---|
Registrovaný: 04.09.09
Prihlásený: 30.07.10
Príspevky: 48
Témy: 14 |
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.
|
|
Registrovaný: 11.01.09
Prihlásený: 26.04.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova |  Napísal Fico: 05.09.2009 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;
|
|
Registrovaný: 04.09.09
Prihlásený: 30.07.10
Príspevky: 48
Témy: 14 | Napísal autor témy mysacek: 06.09.2009 15:45 | |
|
Fico píše: 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?
|
|
Registrovaný: 11.01.09
Prihlásený: 26.04.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova | Napísal Fico: 06.09.2009 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');
|
|
| Stránka: 1 z 1
| [ Príspevkov: 4 ] | |
| Nemôžete zakladať nové témy v tomto fóre
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
|
|
