Re: Niusy o FPC i Lazarus

Article View: pl.comp.lang.pascal

Article #93147

Back to pl.comp.lang.pascal Previous Next

#93147

From: Wiktor S.
Date: Thu, 23 Dec 2010 01:31

34 lines
1981 bytes

> a nic nie słyszałem o tym błędzie  -  moze dlatego ze crt prawie
> wogle nie używam .

w źródle wygląda to tak:


Function CrtWrite(var f : textrec) : integer;
var
(* * *)
  OldConsoleOutputCP : Word;
begin
  OldConsoleOutputCP:=GetConsoleOutputCP;
  SetConsoleOutputCP(GetACP);
(* tu właściwe pisanie *)
  SetConsoleOutputCP(OldConsoleOutputCP);
(* * *)
end;
i podobnie CrtRead.
GetACP zwraca 1250 - więc program we Free Pascalu w konsoli zamiast ze 
strony kodowej 852 korzysta z 1250: ma to pewne plusy (koniec z problemem 
różnych kodowań) ale:

  - nie da się tego wyłączyć (inaczej niż zakomentować te linie i 
przekompilować RTL)
  - takie przełączanie strony kodowej za KAŻDYM razem tam i z powrotem 
brzydko wygląda
  - tracimy możliwość rysowania ramek ASCII, bo ich nie ma w CP1250.

wyrzuciłem więc te linie w 2.4.2, skompilowałem crt i po prostu muszę 
pamiętać że korzystam z niestandardowych bibliotek standardowych.


-- 
Azarien

Technical Details

Message-ID: <ieu8p0$b1e$1@news.onet.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.supermedia.pl!news.nask.pl!news.nask.org.pl!news.onet.pl!.POSTED!not-for-mail

References: <idj7ei$k7s$1@news.onet.pl> <0edf.00000246.4d07e2d2@newsgate.onet.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.supermedia.pl!news.nask.pl!news.nask.org.pl!news.onet.pl!.POSTED!not-for-mail
From: "Wiktor S." <wswiktor&poczta,fm@no.spam>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Niusy o FPC i Lazarus
Date: Thu, 23 Dec 2010 02:31:11 +0100
Organization: http://onet.pl
Lines: 35
Message-ID: <ieu8p0$b1e$1@news.onet.pl>
References: <idj7ei$k7s$1@news.onet.pl> <0edf.00000246.4d07e2d2@newsgate.onet.pl>
NNTP-Posting-Host: 193.239.126.100
Mime-Version: 1.0
X-Trace: news.onet.pl 1293067872 11310 193.239.126.100 (23 Dec 2010 01:31:12 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Thu, 23 Dec 2010 01:31:12 +0000 (UTC)
In-Reply-To: <0edf.00000246.4d07e2d2@newsgate.onet.pl>
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Windows Mail 6.0.6002.18197
X-MimeOLE: Produced By Microsoft MimeOLE V6.0.6002.18263
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message