30-03-2008.txt

// wczytywanie do i z pliku txt

program Untitled;

uses CRT, DOS;

var
przyklad:text;
linia:string;

Begin
Assign(przyklad,'C:/plik.txt');    //przypisanie zmiennej textowej do pliku
rewrite(przyklad);                 //utworzenie i otwarcie pliku
writeln(przyklad, 'to jest text pliku nab');      //zapisanie linii textu do pliku
writeln(przyklad, 'lol lol ciastka ciastka');     //odczyt z pliku

close(przyklad); //zamkniecie pliku
reset(przyklad); //otwiera plik tylko do odczytu

repeat
readln(przyklad,linia);
writeln(linia);

until EOF(przyklad);
close(przyklad);
readln;

end.



// zapisywanie dowolnego textu do pliku z klawiszem '0' zamykajacym program 


program Untitled;

uses CRT, DOS;

var
przyklad:text;
tekst:string;

Begin
Assign(przyklad,'C:/Documents and Settings/adminlokal/Pulpit/plik2.txt');
rewrite(przyklad);

repeat
readln(tekst);
 if tekst<>'0' then
writeln(przyklad, tekst);


until tekst='0';
close(przyklad);


end.



// pobieranie i wyswietlanie informacji o katalogu w ktorym sie znajduje program



program Untitled;
{$i-}    //wylaczenie wyswietlania bledow, startowanie programu

uses CRT, DOS;

var
katalog:string;

Begin
GetDir(0,katalog);           //pobieranie informacji o katalogu getdir(nr_dysku,nazwa katalogu)
writeln('altualny dysk i katalog:',katalog);      //info o katalogu
readln;
{$i+}

end.


// wyswietlanie dostepnyhc dyskow w komputerze (nie widzi cdrom bez plyty)


program Untitled;

uses CRT, DOS;

var
t:byte;
s,stary:string;

Begin
GetDir(0,stary);
{$i-}
For t:=Ord('A') To Ord('Z') Do
Begin
s:=Chr(t);
chDir(s+':');
If  IOResult=0 then write(s,' ')
end;
{$i+}
ChDir(stary);
readln;
end.



// tworzenie katalogu (w bierzacej lokalizacji)


program Untitled;

uses CRT, DOS;

Begin
{$i-}
MkDir('pascal-poprostugotuj');
If IOResult<>0 Then Writeln('Wystapil blad')
else Writeln('utworzono kataloga hehe');
{$i+}
readln
end.