[PASCAL] - drukowanie

0

Witam, robię bazę danych. Dysponuje Free Pascal Compiler, Turbo Pascal 5,5 i 7,0.
Jak mogę wydrukować procedurę wyświetl?

procedure wyswietl;
begin
if suma=0 then pusta
else
begin
textcolor(10);
writeln('Numer wpisu : ',t1);
writeln('Numer ewidencyjny : ', r[t1].ewidencja);
writeln('Imie : ', r[t1].imie);
writeln('Nazwisko : ', r[t1].nazwisko);
writeln('Miejscowo† : ', r[t1].miejscowosc);
writeln('Ulica : ', r[t1].ulica);
writeln('Numer domu : ', r[t1].numer);
writeln('NIP : ', r[t1].nip);
writeln('PESEL : ', r[t1].pesel);
writeln('Telefon : ', r[t1].telefon);
writeln('------------------------');
writeln('Adres do korespondencji');
writeln('Ulica : ', r[t1].ulica2);
writeln('Numer domu : ', r[t1].numer2);
writeln('Kod i miejscowo† : ', r[t1].miejscowosc2);
writeln;
end
end;

Znalazłem taką instrukcję:
http://www.komputery-internet.net/turbo/drukowanie.php
ale ona nic nie daje.

0

Ja osobiście nigdy nic nie drukowałem w ten sposób więc nie wiem czy działa :P
Jeśli to co tam piszą działa to wystarczy że będziesz miał taką procedurkę drukującą:

uses printer;

procedure drukuj;
begin
  if suma=0 then pusta
  else
   begin
   writeln(lst,'Numer wpisu       : ',t1);
   writeln(lst,'Numer ewidencyjny : ', r[t1].ewidencja);
   writeln(lst,'Imie              : ', r[t1].imie);
   writeln(lst,'Nazwisko          : ', r[t1].nazwisko);
   writeln(lst,'Miejscowo†       : ', r[t1].miejscowosc);
   writeln(lst,'Ulica             : ', r[t1].ulica);
   writeln(lst,'Numer domu        : ', r[t1].numer);
   writeln(lst,'NIP               : ', r[t1].nip);
   writeln(lst,'PESEL             : ', r[t1].pesel);
   writeln(lst,'Telefon           : ', r[t1].telefon);
   writeln(lst,'------------------------');
   writeln(lst,'Adres do korespondencji');
   writeln(lst,'Ulica             : ', r[t1].ulica2);
   writeln(lst,'Numer domu        : ', r[t1].numer2);
   writeln(lst,'Kod i miejscowo† : ', r[t1].miejscowosc2);
   end
end;
0

Ludzie niełaska zajżeć do dokumentacji :/
http://community.freepascal.o[...]s-html/rtl/printer/index.html
ba nawet tam jest przykładowy kod
Masa [rotfl]

przesnieść do newbie :>

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0