iskalnik datotek pomoc

Odpiranje, tiskanje, pisanje v datoteke in drugo.
Odgovori
_Nejz_
Prispevkov: 1
Pridružen: 28.02.2006 18:19:42

iskalnik datotek pomoc

Odgovor Napisal/-a _Nejz_ » 28.02.2006 18:33:33

Ker imam probleme sem se odlocil poiskati pomoc pri vas. Verjamem da mi lahko pomagate!
Trudim se z "iskalnikom datotek" vendar mi ne uspeva.
Iz knjige spoznajmo delphi 5.0 sem prepisal naslednje:


procedure TForm1.Button2Click(Sender: TObject);
begin
if findfirst('c:\windows\*.dll',faAnyFile,a)=0 then
listbox1.Items.Add(aname + ' -> ' +
inttostr(asize) + ' bajtov');
end;

poiskalo naj bi vse dll datoteke v mapi windows. a je tipa isci, isci pa je record.

v knjigi je nekaj vrstic pred tem "programom" tudi funkcija
function findfirst (const path:string; attr:integer; var f:tsearchrec): integer;

tsearchrec sem jaz preimenoval v isci. zanima me kaj naj naredim s to funkcijo(?), ker se mi ne sanja

tako da je nisem vpisal še nikamor.

procedure je na gumbu, izpisovalo pa naj bi v listbox.

program se (seveda) ne zažene in se ustavi tu
if findfirst('c:\windows\*.dll',faAnyFile,a)TU=0 then

izpiše pa:
Types of actual and formal var parameters must be identical

pomoč?

matej
Prispevkov: 1837
Pridružen: 03.01.2002 20:40:38

iskalnik datotek pomoc

Odgovor Napisal/-a matej » 28.02.2006 18:41:12

"a" mora biti tipa TSearchRec torej

Koda: Izberi vse

var 
  a: TSearchrec;
Matej

Odgovori