Witam mam taki problem. Otóż mam kawałek kodu który wyszukuje mi jakiś plik na dysku.
Wygląda to tak:
procedure TForm1.ZnajdzPlik(Sciezka,NazwaPliku:String);
var
FSearchRec,DSearchRec:TSearchRec;
FindResult:integer;
function GetDirectoryName(Dir:String):String;
begin
if Dir[Length(Dir)]<>'\'...