Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Par stvari za Pascal

[es] :: Pascal / Delphi / Kylix :: Par stvari za Pascal

[ Pregleda: 2592 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Dusan Gacic
Beograd

Član broj: 10369
Poruke: 203
*.ptt.yu



Profil

icon Par stvari za Pascal 23.06.2003. u 21:51 - pre 206 meseci
Zdravo drugari !!!

Interesuje me par pitanja:

1. Koja je komanda u Pascalu da program pronadje neki fajl, a da pri tom pretrazuje disketu,hdd,cdrom)?
2. Kada pronadje kako da ga upotrebim npr. ako je u pitanju tekst?
3. Kako da se pri pokretanju programa, isti program kopira na neko drugo mesto?
4. Kako da zastitim svoj program od brisanja kao sto je slucaj sa nekim Win programima?

Hvala na razumevanju !!!
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Par stvari za Pascal 24.06.2003. u 01:11 - pre 206 meseci
1) Pretrazi Google, sigurno ces naci
2) Kako da ga upotrebis ? Ako zelis da ga izlistas, onda koristi ovo :
Code:

 Program Lister(Input, Output);
 var
  fil1 : Text;
  red : String;
 Begin
  Assign(Fil1, 'C:\....'); {Umesto C:\.... stavi lokaciju fajla}
  Reset(Fil1);
   While Not Eof(fil1) Do Begin
    ReadLn(Fil1, red);
    WriteLn(red);
   End;
  Close(Fil1);
 End.

3) Sa naredbama BlockRead i BlockWrite, prouci ih malo
4) ?????

 
Odgovor na temu

Ilija Studen
Novi Sad

Član broj: 3864
Poruke: 859
*.som.sezampro.yu

Sajt: www.activecollab.com


+1 Profil

icon Re: Par stvari za Pascal 24.06.2003. u 01:43 - pre 206 meseci
4. Dodaj atribut System fajlu... Ne znam kako se to radu u pascalu ali u delphuju postoje dva metoda FileSetAttr i FileGetAttr s kojima to vrlo lako mozes uraditi. Prouci primere navedene u Helpu i sve ce ti biti jasno =]
http://www.activecollab.com - Alat za upravljanje projektima
 
Odgovor na temu

Koljenovic
Koljenovic

Član broj: 9334
Poruke: 130



Profil

icon Re: Par stvari za Pascal 06.07.2003. u 23:21 - pre 205 meseci
Da ti neces mozda viruse da pravis u TP?
Njutn laze! Lake padaju brze...
 
Odgovor na temu

Voodoo
Novi Beograd

Član broj: 3508
Poruke: 488
*.sr.gov.yu



+1 Profil

icon Re: Par stvari za Pascal 07.07.2003. u 01:53 - pre 205 meseci
disk se pretrazhuje tako shto pretrazhish svaki direktorijum na hardu... evo jedne moje samorekurzivne funkcije koja upisuje *sve* direktorijume (pochevshi od 'Path') u string. za ostalo se potrudi sam (jer i ja sam ovo nauchio chitajuci help).

procedure LoadPath(Path: string; List: string);
var
Found: Integer;
sr: TSearchRec;
Tmp: string;
begin
Tmp := Path;
if Tmp[Length(Tmp)] <> '\' then Tmp := Tmp + '\';
Found := FindFirst(Tmp + '*.*', faAnyFile, sr);
while Found = 0 do
begin
if (sr.Name <> '.') and (sr.Name <> '..') then
begin
if (sr.Attr and faDirectory) <> 0 then
begin
List := List + Tmp + sr.Name);
LoadPath(Tmp + sr.Name, List);
end;
end;
Found := FindNext(sr);
end;
FindClose(sr);
end;
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Par stvari za Pascal

[ Pregleda: 2592 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.