[ pista @ 09.02.2002. 01:40 ] @
Kako da uradim sledece , da recimo u filelistbox1 predjem na sledeci fajl na listi. Tj. ako imam neki fajl selektovan , kako da selektujem sledeci (posle njega) i da filelistbox1.filename dobije vrednost string adrese tog sledeceg fajla ...
I jos nesto , kako da proverim postoji li neki fajl? Npr. fajl Program.ini u kome su podesavanja za odredjeni program , kako da proverim da li on postoji , jer program pri ucitavanju otvara ini fajl , ali ako taj fajl ne postoji javi gresku... A ako bih mogao u programu da proverim pre ucitavanja da li taj fajl postoji , u slucaju da ne postoji da stvori novi sa default podesavanjima ...
[ overflow @ 09.02.2002. 08:49 ] @
Citat:
pista:
Kako da uradim sledece , da recimo u filelistbox1 predjem na sledeci fajl na listi. Tj. ako imam neki fajl selektovan , kako da selektujem sledeci (posle njega) i da filelistbox1.filename dobije vrednost string adrese tog sledeceg fajla ...


filelistbox1.itemindex:=filelistbox1.itemindex+1;

{za vise informacija pogledaj itemindex atribut (property) TFileListBox klase}

Citat:
pista:
I jos nesto , kako da proverim postoji li neki fajl? Npr. fajl Program.ini u kome su podesavanja za odredjeni program , kako da proverim da li on postoji , jer program pri ucitavanju otvara ini fajl , ali ako taj fajl ne postoji javi gresku... A ako bih mogao u programu da proverim pre ucitavanja da li taj fajl postoji , u slucaju da ne postoji da stvori novi sa default podesavanjima ...


if fileexists('c:\program.ini') then {ucitaj podatke};

{Funkcija FileExists je tipa boolean i za preneseni (string) parametar vraca true ako taj fajl postoji}
[ pista @ 09.02.2002. 17:33 ] @
Probao sam ono , radi ...
E sad ima jos jedan problem. Ne mogu da izdvojim poslednja tri slova iz stringa filelistbox1.filename , to jest tip fajla. Kada probam sa
i:=length(filelistbox1.filename);
tip:=filelistbox1.filename[i-2]+filelistbox1.filename[i-1]+filelistbox1.filename;
kada startujem javi gresku i program zablokira...
probao sam i sa novom promenljivom
fajl:=filelistbox1.filename;
pa onda sve isto kao gore , medjutim opet ista greska ...
Zasto pravi problem samo sa ovim stringom , a sa ostalim radi bez problema (probao sam filelistbox1.directory - radi al dzaba kad mi to ne treba)...
[ overflow @ 10.02.2002. 08:49 ] @
Citat:
pista:
Probao sam ono , radi ...
E sad ima jos jedan problem. Ne mogu da izdvojim poslednja tri slova iz stringa filelistbox1.filename , to jest tip fajla. Kada probam sa
i:=length(filelistbox1.filename);
tip:=filelistbox1.filename[i-2]+filelistbox1.filename[i-1]+filelistbox1.filename;
kada startujem javi gresku i program zablokira...
probao sam i sa novom promenljivom
fajl:=filelistbox1.filename;
pa onda sve isto kao gore , medjutim opet ista greska ...
Zasto pravi problem samo sa ovim stringom , a sa ostalim radi bez problema (probao sam filelistbox1.directory - radi al dzaba kad mi to ne treba)...


Ovo radi (probao sam):

var s : string;
begin
if filelistbox1.itemindex<>-1 then
begin
s:=filelistbox1.FileName;
label1.caption:=s[length(s)-2]+s[length(s)-1]+s[length(s)];
end;
[ Riste Pejov @ 14.02.2002. 14:55 ] @
Ukoliko je duzina extenzija falja razlicita od 3 karaktera ili falj nema extenziju, onda ti to ne valja, moras pristupiti drugacije
Code:

var 
   s : string; 
   Tpos:integer;
   function ExtensionDotPos(str:string):integer;
       var
       k:integer;
       begin
       k:=Length(str);
       while str[k]<>'.' do
          begin
          dec(k)
          if k=0 then  
//counter stigo do 0 a nema tacke !
//falj nema extenziju, funkcija vraca -1
            begin
            k:=-1
            break;
            end;
          end;
       ExtensionDotPos:=k;
       end;
begin 
if filelistbox1.itemindex<>-1 then 
begin 
s:=filelistbox1.FileName; 
TPos:=ExtensionDotPos(s);
//ako funcija vrati -1 onda falj nema extenzije !
if TPos<>-1 then
label1.caption:=copy(s,TPos+1,Length(s)-Tpos)
else label1.caption:='falj nema extenziju';
end; 

[ overflow @ 16.02.2002. 10:28 ] @
Citat:
pista:
Probao sam ono , radi ...
E sad ima jos jedan problem. Ne mogu da izdvojim poslednja tri slova iz


Ako ti treba ekstenzija fajla, najbolje ti je da koristis funkciju
Code:
function ExtractFileExt(const FileName: string): string;



[ pista @ 16.02.2002. 14:08 ] @
Hvala svima na pomoci , sad cu da probam sve to ...
[ Riste Pejov @ 18.02.2002. 03:05 ] @
Citat:
overflow:
Ako ti treba ekstenzija fajla, najbolje ti je da koristis funkciju
Code:
function ExtractFileExt(const FileName: string): string;



ja sam ipak poshao sa Solomonskog resenja, ali nije mi palo na pamet za ExtractFileExt