> >>Udah, tapi koq selalu tersisa satu file yang posisinya paling atas
> >>yach ? Skripnya sebagai berikut :
> >>
> >> FindFirst(Dir, faArchive, SearchResult);
> >> ArrayFile[a] := ExtractFileName(SearchResult.Name);
> >> a := a + 1;
>
> N> itu a kapan di-init = 1?
>
> Udah koq di atasnya, sorry, copy-paste-nya ketinggalan... tetep ndak
> jalan tuh... masak urusan "gampang" begini nyantol mikirnya kelamaan
> yach ? Kan ndak efektif.....
Gimana kalo di coba kayak gini :
...
a:=0;
Found :=FindFirst(Dir, faArchive, SearchResult);
While Found=0 do begin
inc(a);
ArrayFile[a] := ExtractFileName(SearchResult.Name);
Found := FindNext(SearchResult);
end;
...
---
Wawa <[EMAIL PROTECTED]>
milis ini didukung oleh :
>> http://www.indolinux.com - dunia linux indonesia
-------------------------------------------------------------------
untuk berhenti kirim email ke [EMAIL PROTECTED]
untuk melihat peraturan kirim email ke [EMAIL PROTECTED]
arsip berada di http://www.mail-archive.com/[email protected]
