Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

Kontrola Fajlova

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 7 odgovora
  • 5.954 pregleda

Najnovija ↓

Kontrola Fajlova 09.02.2002. u 02:40 · pre 301 mesec #1
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 ...
Re: Kontrola Fajlova 09.02.2002. u 09:49 · pre 301 mesec #2
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}
Potpis
Sve sto je besmislenije, utoliko je bolje.
Re: Kontrola Fajlova 09.02.2002. u 18:33 · pre 300 meseci #3
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)...
Re: Kontrola Fajlova 10.02.2002. u 09:49 · pre 300 meseci #4
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;
Potpis
Sve sto je besmislenije, utoliko je bolje.
Re: Kontrola Fajlova 14.02.2002. u 15:55 · pre 300 meseci #5
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; 

Potpis
People who think they know everything tend to irritate those of us who do.
Re: Kontrola Fajlova 16.02.2002. u 11:28 · pre 300 meseci #6
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;



Potpis
Sve sto je besmislenije, utoliko je bolje.
Re: Kontrola Fajlova 16.02.2002. u 15:08 · pre 300 meseci #7
Hvala svima na pomoci , sad cu da probam sve to ...
Re: Kontrola Fajlova 18.02.2002. u 04:05 · pre 300 meseci #8
Citat:
overflow:
Ako ti treba ekstenzija fajla, najbolje ti je da koristis funkciju
Code:
function ExtractFileExt(const FileName: string): string;



:D ja sam ipak poshao sa Solomonskog resenja, ali nije mi palo na pamet za ExtractFileExt :)
Potpis
People who think they know everything tend to irritate those of us who do.
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme