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.