Nagrywarki |
Pliki |
Dyski twarde |
Recenzje |
Księgarnia |
Biosy |
Artykuły |
Nagrywanie od A do Z |
Słownik |
FAQ
|
||
|
Off topic Forum poświęcone wszelkim innym tematom. |
|
Opcje związane z dyskusją | Tryby wyświetlania |
12.02.2004, 20:36 | #1 |
logged out
CDRinfo VIP
Data rejestracji: 12.07.2003
Lokalizacja: /home
Posty: 12,518
|
Turbo Pascal pomocy
Czy ktos wie moze jak wyglada procedura wyszukujaca dysk twardy w poszukiwaniu wczesniej skojarzonego pliku. I jak dzieki programowi w TP dodac jakas wartosc do rejestru. Szukalem na wielu stronach i nic jeżeli ktos wie jak to zrobic to z gory dziekuje za ewentualne odpowiedzi. A lacze sie przez modem wiec czasu niemam za duzo aby poszperac glebiej.
Można wysylac mi na skrzynke gotowe procedury andy_zgred@wp.pl albo podac jakies linki do stronek na ktorych na pewno jest to czego szukam. Za wszystkie odpowiedzi z góry dziekuje |
#ads | |
CDRinfo.pl
Reklamowiec
Data rejestracji: 29.12.2008
Lokalizacja: Sieć globalna
Wiek: 31
Posty: 1227
|
|
13.02.2004, 12:20 | #2 | ||
Samiec - twój wróg!
Data rejestracji: 21.06.2003
Lokalizacja: Lublin
Posty: 330
|
Cytat:
wyszukiwanie dysku twardego?? moze chodzi tylko o wyszukiwanie pliku na dysku, jesli tak, to sa do tego specjalne funkcje FindFirst, FindNext, FindClose - zajrzyj do pomocy (tzn. takie funkcje sa w Delphi, a czy w TP sa zaimplementowane to nie pamietam) Cytat:
polecam przerzucenie sie na Delphi (dostepna darmowa wersja Personal, pelna, bez limitu czasowego) - tez potrafi robic programy konsolowe a dodatkowo posiada o wiele wiecej gotowych funkcji i procedur niz TP (no i w ogole o wiele wygodniejsze niz klepanie w dosie)
__________________
"Chciałam powiedzieć tak, że 90% oprogramowania w Europie rzeczywiście pisanych jest w Microsoft Office, natomiast ok. 5% w Linuksie." Podsekretarz Stanu w Ministerstwie Edukacji Narodowej i Sportu Hanna Kuzińska |
||
13.02.2004, 12:40 | #3 |
przeciętny zjadacz...piwa
Zlotowicz
Data rejestracji: 12.04.2002
Lokalizacja: śląsk
Posty: 4,869
|
zajrzyj na http://programowanie.of.pl/ i tam zapytaj.
|
13.02.2004, 18:22 | #4 |
logged out
CDRinfo VIP
Data rejestracji: 12.07.2003
Lokalizacja: /home
Posty: 12,518
|
Dzieki za odpowiedzi poszukam teraz mam ferie wiec mam troche czasu. A chodzi o to aby program np. wyszukiwał jakiś plik na dysk twardym. A do Delphi roczej sie nie zamierzam przesiąść stary dobry TP bardziej mi sie podoba choc kto wie ??
|
14.02.2004, 14:13 | #5 | ||
Samiec - twój wróg!
Data rejestracji: 21.06.2003
Lokalizacja: Lublin
Posty: 330
|
Cytat:
Kod:
function Znajdz(sciezka, maska_pliku : String) : String; var sr : TSearchRec; file_attr : Integer; begin sciezka := IncludeTrailingPathDelimiter(sciezka); // dodanie znaku '\' na koncu sciezki jesli go nie ma file_attr := faAnyFile - faVolumeID - faDirectory; if FindFirst(sciezka + maska_pliku, file_attr, sr) = 0 then begin repeat // tutaj wypisanie nazwy pliku (wraz ze sciezka) na ekran (dla aplikacji konsolowej) WriteLn(sciezka + sr.Name) until FindNext(sr) <> 0; FindClose(sr) end end; (funkcja zapisuje dane z parametru wartosc pod nazwa w zmiennej nazwa do klucza o nazwie przekazanej w parametrze klucz; zwraca True, jesli wszystko sie udalo, w przeciwnym wypadku zwraca False) Kod:
function Zapisz(klucz, wartosc, nazwa : String) : Boolean; var reg : TRegistry; begin Result := False; reg := TRegistry.Create; try // obsluzenie mozliwych bledow podczas dostepu do rejestru reg.RootKey := HKEY_CURRENT_USER; if reg.OpenKey(klucz, True) then begin // otworzenie klucza reg.WriteString(wartosc, nazwa); // zapisanie wartosci reg.CloseKey; // zamkniecie klucza Result := True end else Result := False finally reg.Free end end; Cytat:
chyba widac, ze wyglada to (po wczytaniu sie) w miare latwo zeby moc korzystac z rejestru w TP trzeba bawic sie fukncjami API (czyli troche C++ i czytanie dokumentacji), ktore sa o wiele gorsze/trudniejsze niz te powyzsze funkcje zaimplementowane w Delphi co do szukania pliku w TP, to przyznaje sie, ze nie wiem jak to zrobic, bo nigdy tego w tym jezyku nie robiem, ale jak widac na przykladzie w delphi jest to tez stosunkowo latwe przyklady te pokazuje, zeby Cie namowic na sprobowanie Delphi, bo nie widze zadnego sensu na pisanie takich programow w TP, skoro w Delphi masz juz gotowe funkcje wykonujace te zadania (jesli chodzi o pisanie aplikacji konsolowych w Delphi to przeciez jest to samo, co TP, tylko ze latwiej, szybcie i wygodniej) pozdrawiam
__________________
"Chciałam powiedzieć tak, że 90% oprogramowania w Europie rzeczywiście pisanych jest w Microsoft Office, natomiast ok. 5% w Linuksie." Podsekretarz Stanu w Ministerstwie Edukacji Narodowej i Sportu Hanna Kuzińska |
||
14.02.2004, 17:31 | #6 |
logged out
CDRinfo VIP
Data rejestracji: 12.07.2003
Lokalizacja: /home
Posty: 12,518
|
Dzieki za przyklady,może jednak sprobuje Delphi, raz popelnilem w nim maly programik ale lepiej mi sie pisalo w pascalu. Ale teraz chyba wybiore delphi. THX za pomoc cinma
|
|
|