Par stvari za Pascal

[ Dusan Gacic @ 23.06.2003. 21:51 ] @

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

[ reiser @ 24.06.2003. 01:11 ] @

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

[ Ilija Studen @ 24.06.2003. 01:43 ] @

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

[ Koljenovic @ 06.07.2003. 23:21 ] @

Da ti neces mozda viruse da pravis u TP?

[ Voodoo @ 07.07.2003. 01:53 ] @

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;