[cinma]

Napisany przez @ndy

A chodzi o to aby program np. wyszukiwał jakiś plik na dysk twardym.

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;

cos mowiles, o pisaniu do rejestru:
(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)

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;

Napisany przez @ndy

A do Delphi roczej sie nie zamierzam przesiąść stary dobry TP bardziej mi sie podoba choc kto wie ??

powyzszy kod dziala w delphi po dodaniu odpowiednich pakietow
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