Ĺadny brzuch
Czy istnieje w Pascalu funkcja która po podaniu współrzędnych zwraca znak położony właśnie na tych współrzędnych?
coś w stylu :
function jaki_znak(x,y:integer):char ;
Jeśli nie to jak ją napisać?
Przekopałem chyba 5 razy pomoc (trzeba przyznać - porządną) BorlandPascala 7.0 i nic takiego nie znalazłem. To chyba niemożliwe, wygląda przynajmniej na mało realne. Chyba że jest tak funkcja w jednym z modułow (najprędzej w DOS.TPU). Ale wątpię.
____________
GG# 2370024
Dzieki już sobie poradziłem
Ale udało się? Też chętnie dowiedziałbym się jak to sięrobi.
___________________________________________________________________________
GG# 2370024 | Po wyciągnięciu zawleczki granat przestaje być twoim przyjacielem...
unit Screen;
interface
function GetChar( X, Y:integer):char;
implementation
uses dos,crt,graph;
type
CharCell = record
Char : char;
end;
ScreenType = array[1..25,1..80] of CharCell;
var
ScreenPtr : ^ ScreenType;
function GetChar( X, Y:integer):char;
begin
GetChar := ScreenPtr^[ Y, X ].Char;
end;
procedure InitScreen;
var Driver,Mode:integer;
begin
detectgraph(Driver,Mode);
if Driver = hercmono then
ScreenPtr := ptr($B000,$0000) {to jest najważniejsza część
else programu , wskazanie na monitor}
ScreenPtr := ptr($B800,0000);
end;
begin
InitScreen;
end.
Już cos takiego robiłem (w stawce asmeblerowej w pascalu), ale nie zapisałem bo komp mi sie zresetował. Duzo kodu to pascalowe zajmuje (i jest wolne). Jak zrobie jeszcze raz to wam wysle.
:)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
coś w stylu :
function jaki_znak(x,y:integer):char ;
Jeśli nie to jak ją napisać?
Przekopałem chyba 5 razy pomoc (trzeba przyznać - porządną) BorlandPascala 7.0 i nic takiego nie znalazłem. To chyba niemożliwe, wygląda przynajmniej na mało realne. Chyba że jest tak funkcja w jednym z modułow (najprędzej w DOS.TPU). Ale wątpię.
____________
GG# 2370024
Dzieki już sobie poradziłem
Ale udało się? Też chętnie dowiedziałbym się jak to sięrobi.
___________________________________________________________________________
GG# 2370024 | Po wyciągnięciu zawleczki granat przestaje być twoim przyjacielem...
unit Screen;
interface
function GetChar( X, Y:integer):char;
implementation
uses dos,crt,graph;
type
CharCell = record
Char : char;
end;
ScreenType = array[1..25,1..80] of CharCell;
var
ScreenPtr : ^ ScreenType;
function GetChar( X, Y:integer):char;
begin
GetChar := ScreenPtr^[ Y, X ].Char;
end;
procedure InitScreen;
var Driver,Mode:integer;
begin
detectgraph(Driver,Mode);
if Driver = hercmono then
ScreenPtr := ptr($B000,$0000) {to jest najważniejsza część
else programu , wskazanie na monitor}
ScreenPtr := ptr($B800,0000);
end;
begin
InitScreen;
end.
Już cos takiego robiłem (w stawce asmeblerowej w pascalu), ale nie zapisałem bo komp mi sie zresetował. Duzo kodu to pascalowe zajmuje (i jest wolne). Jak zrobie jeszcze raz to wam wysle.
:)