Am 23.07.2016 02:40 schrieb "Graeme Geldenhuys" <
mailingli...@geldenhuys.co.uk>:
> > I can't figure out how to do that with windows.
>
> You can't with the default console window. You need to download a 3rd
> party console program. They tend to be MUCH better that the stock
> console under Windows
Hello,
I tested the program listed below in "Delphi 10.1 Berlin" with the
results shown in the comments.
PK
program Project3;
{$APPTYPE CONSOLE}
{$R *.res}
var
AnsiStrA: AnsiString;
ResultA: AnsiString;
begin
Writeln('Not Initialized');
Writeln(' AnsiStrA: ', StringCodePage(AnsiS
On 23/07/16 08:11, Mattias Gaertner wrote:
Here is a result of Delphi 10.1:
Thank you (also Petr). Maybe one more, to know what happens if you mix
rawbytestring and ansistring in the concatenation:
program DTestConcatenate;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
var
s1,s
On 23/07/16 12:13, Jonas Maebe wrote:
On 23/07/16 08:11, Mattias Gaertner wrote:
Here is a result of Delphi 10.1:
Thank you (also Petr). Maybe one more, to know what happens if you mix
rawbytestring and ansistring in the concatenation:
program DTestConcatenate;
{$APPTYPE CONSOLE}
{$R *.res}
I get
Error: Calling convection doesn't match forward
Error: Found Declaration: IsInpOutDriverOpen:Boolean;
Do I need to specify the functions differently in the interface section?
Thanks for the help
-Original Message-
From: fpc-pascal-boun...@lists.freepascal.org
[mailto:fpc-pascal-bo
Thank you for getting me on the right track with this Marc, I have it
working now!
Here is a link I found that explains it:
http://www.freepascal.org/docs-html/ref/refsu72.html
I would have never thought of that!
I posted the fixed program on github here if anyone is interested:
https://githu
On 07/23/2016 06:13 AM, Jonas Maebe wrote:
[...]
var
s1,s2,s3: AnsiString;
r1,r2,r3: RawByteString;
begin
s1:='A'; // 1252
s2:='Aä'; // 1252
writeln('s1="',s1,'" cp=',StringCodePage(s1));
writeln('s2="',s1,'" cp=',StringCodePage(s2));
writeln('s2="',s2,'" cp=',StringCodePage(s2))
On 23/07/16 12:58, wkitt...@windstream.net wrote:
On 07/23/2016 06:13 AM, Jonas Maebe wrote:
[...]
var
s1,s2,s3: AnsiString;
r1,r2,r3: RawByteString;
begin
s1:='A'; // 1252
s2:='Aä'; // 1252
writeln('s1="',s1,'" cp=',StringCodePage(s1));
writeln('s2="',s1,'" cp=',StringCodePage(s2
Hello,
here are results:
...
begin
Writeln('--');
Writeln;
s1 := 'A'; // 1250
s2 := 'Aä'; // 1250
Writeln('s1 = "', s1, '" cp = ', StringCodePage(s1));
Writeln('s2 = "', s2, '" cp = ', StringCodePage(s2));
r1 := AnsiToUTF8(s1); // 65001
r2 := AnsiToUTF8(s2); // 650
In our previous episode, James Richters said:
> On 2016-07-22 21:38, James Richters wrote:
> > Linux is just all yellow on light blue. The windows one for example
> > will show comments in grey reserved words in white.. ect..
> > it makes it a lot easier to follow
>
> Are they the same versions
this is driving me battier than i already am :(
i have a binary file that contains a record of data... the first field of the
data is a crc32 value of a string of characters... the string of characters is
lower cased before being fed to the crc32 function... i need to calculate the
same crc32
On Fri, 22 Jul 2016 14:19:20 +, Mark Morgan Lloyd
wrote:
>Or go the whole hog and
>port the program onto a Raspberry Pi: Bo's doing something like you're
>asking.
Yes, indeed! I now have something like 7-8 operational RPi units for
different purposes and in several places I have used the G
On Fri, 15 Jul 2016 14:59:10 -0700 (MST), Zaaphod
wrote:
>I am trying to get access to the parallel port with Free Pascal.
>
>I'm trying to use this version of inpout32 (x64)
>http://www.highrez.co.uk/downloads/inpout32/
>
>Here's my program:
>http://pastebin.com/facf6EFc
>
>Here's my Unit:
>h
13 matches
Mail list logo
