Procedura zapisuje do pliku tekstowego, dodając na końcu znak nowej linii.
{$APPTYPE CONSOLE}
AssignFile(F,
'plik.txt');
// otwieramy plik (tekstowy -> zmienna TextFile) ReWrite(F
);
// plik otwarty do zapisu WriteLn(F,
'linijka zapisana do pliku');
// zapisujemy linijkę do pliku
Jeżeli parametr F zostanie pominięty, tekst zostanie wypisany na ekranie konsoli. Procedura WriteLn może przyjąć dowolną liczbę parametrów.
{$APPTYPE CONSOLE}
Write('Podaj swoje imię: ');
// wyswietlamy komunikat bez znaku nowej linii Readln(Name);
// czytamy dane z klawiatury i umieszczamy je w zmiennej Name WriteLn('Naciśnij Enter, aby zakończyć');
Readln;
// pobieramy dowolny znak (nie dosłownie) i czekamy na naciśnięcie klawisza enter
Spójrz na linię 11. Wartośc
zmiennej Name została wstawiona pomiędzy łańcuch, podzielony
operatorem ,
Można tę linię przekształcić w ten sposób:
WriteLn('Witaj ' +
Name +
' jestem Twoim komputerem!');
Efekt będzie ten sam.
Zobacz też:
Moduł: System
