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?
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) ?????
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 =]
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;
Registrovani: 7 ( zelja019, touch_master, Džeronimo, tedi97, Srdjan011, gazdamitke, owim )
Par stvari za Pascal 
Re: Par stvari za Pascal