Czytanie nazw plików z katalogu

0

Zajmuję się pewną bazą i mam problem. Przeszukanie tego forum to koszmar więc prosze o pomoc.

W tej bazie ma być opcja wybierania danego katalogu, dysku i zczytanie wszystkich nazw plików z tego katalogu i jego podkatalogów (nazwy plików bez rozszerzenia). Nazwy te muszą być umieszczone jako rekordy w tabeli. Proszę o pomoc bo jestem jeszcze leszczem w Delphi a naprawdę tego potrzebuję.

Z góry dzięki

0

http://4programmers.net/Forum/viewtopic.html?id=31188
Widzisz, wcale nie taki problem. Przeczytaj wypowiedź Vogela.

0

Mi nie chodzi o wyszukanie konkretnych plików i na tym koniec. Mają to być np pliki mp3 a ich nazwy wpisane do tabeli w bazie.
Jeszcze jedno, jak rozdzielić nazwe utworów mp3? Tzn, nazwy plików są robione zazwyczaj tak: autor - tytuł.mp3. Jak umieścić (wydzielić) to co jest po stronie lewej do jednej kolumny a do drugiej to co po prawej?

0

procedure wydziel(nazwapliku: String);
var
autor: String;
tytul: String;
begin
autor := Copy(nazwapliku, 1, Pos('-', nazwapliku));
tytul := Copy(nazwapliku, (Pos('-', nazwapliku) + 1), (Pos('.', nazwapliku) - Pos('-', nazwapliku) - 1));

Pisane z pamięci. Możesz musieć poprawić te cyferki, bo nie wiem dokładnie jak wyglądają nazwy twoich plików.

Pozdrawiam!

1 użytkowników online, w tym zalogowanych: 0, gości: 1