Autor: Wojciech Giersz (chektor_at_polsl.gliwice.pl)
Data: Wed 03 Mar 1999 - 14:31:39 MET
> a tak bardziej swojsko, to specjalnie dla Goscia program w Pascalu,
[ciach]
To moze od razu tak? :)
function hex(x:word):string;
var h:array[0..15] of char;
begin
h:='0123456789ABCDEF';
hex:=h[x shr 12]+ h[(x and $0f00) shr 8]+ h[(x and $0f00) shr 4]+
h[(x and$0f00)];
end;
(za buraki skladniowe przepraszam, ale dawno juz nie mialem do czynienia
z Pascalem.)
> Michal Glebowski
Chektor
..Wojciech.Giersz.....................................Voice.+48-032-2312060..
.....chektor_at_zeus.polsl.gliwice.pl...chektor@malenstwo.iinf.polsl.gliwice.pl.
..Murphy's Law is recursive. Washing your car to make it rain doesn't work..
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 18:18:01 MET DST