Par stvari za Pascal

Odgovori Nova tema

4 odgovora
4.246 pregleda

Par stvari za Pascal 23.06.2003. u 22:51 · pre 284 meseca #1

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 !!!

Re: Par stvari za Pascal 24.06.2003. u 02:11 · pre 284 meseca #2

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) ?????

Re: Par stvari za Pascal 24.06.2003. u 02:43 · pre 284 meseca #3

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 =]

Potpis

http://www.activecollab.com - Alat za upravljanje projektima

Re: Par stvari za Pascal 07.07.2003. u 00:21 · pre 283 meseca #4

Da ti neces mozda viruse da pravis u TP?

Potpis

Njutn laze! Lake padaju brze...

Re: Par stvari za Pascal 07.07.2003. u 02:53 · pre 283 meseca #5

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;

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme