Am 13.08.2015 22:17 schrieb "Michael Van Canneyt" :
>> if (i=0) then begin
>>writeln ('node was empty / non existant');
>>exit;
>> end;
>> for c:=0 to i do
>> writeln (node[c]);// line 85
>
>
> This should be
>
> for c:=0 to i-1 do
>
> writeln (node[c]);// line 85
O
On 13 Aug 2015 10:15 PM, "Chris Moody" wrote:
>
> Hi all,
>
> I have this procedure in my program:
>
> procedure DisplayNode (var node:astring);
> var c, i:integer;
> begin
> i:=SizeOf(node);
> if (i=0) then begin
> writeln ('node was empty / non existant');
> exit;
> end;
> for c:
On Thu, 13 Aug 2015, Chris Moody wrote:
Hi all,
I have this procedure in my program:
procedure DisplayNode (var node:astring);
var c, i:integer;
begin
i:=SizeOf(node);
This should be length(node)
if (i=0) then begin
writeln ('node was empty / non existant');
exit;
end;
for c:=0
Hi all,
I have this procedure in my program:
procedure DisplayNode (var node:astring);
var c, i:integer;
begin
i:=SizeOf(node);
if (i=0) then begin
writeln ('node was empty / non existant');
exit;
end;
for c:=0 to i do
writeln (node[c]);// line 85
end;
astring is an Ar
On Sun, 5 Apr 2015, leledumbo wrote:
I tested in Delphi XE, it also crashes. So, yes it is intended behaviour.
It is not desirable, of course. But there is no way the compiler can
decide
whether the 'raise e' statement is correct.
That's bad to know :|
What if you ask Embarcadero first? Pro
> I tested in Delphi XE, it also crashes. So, yes it is intended behaviour.
>
> It is not desirable, of course. But there is no way the compiler can
> decide
> whether the 'raise e' statement is correct.
That's bad to know :|
What if you ask Embarcadero first? Probably they missed the point. I
On Tue, 31 Mar 2015, leledumbo wrote:
Consider the following program:
{$mode objfpc}
uses sysutils;
begin
try
try
raise exception.create('test');
except
on e: exception do begin
e.message := 'tset';
raise e; // correct re-raise should only have raise; no excep
Consider the following program:
{$mode objfpc}
uses sysutils;
begin
try
try
raise exception.create('test');
except
on e: exception do begin
e.message := 'tset';
raise e; // correct re-raise should only have raise; no exception
variable may present
end;
> Is there anybody? (The archive stops on May, 7th ...)
> I am new to the list - so tell me, if this is the wrong place for my
> questions. I wrote a freePascal program under Linux (Free Pascal Compiler
> version 1.0.10 [2003/06/26] for i386), which reads information from serial
> ports and send
> Thank You, Marco, for Your immidiate response!
>> >I wrote a freePascal program under Linux (Free Pascal Compiler
>> > version 1.0.10 [2003/06/26] for i386), which reads information from
>> serial
>> > ports and sends information to serial ports and does some
>> calculations.
>> > There are no po
Hi!
Is there anybody? (The archive stops on May, 7th ...)
I am new to the list - so tell me, if this is the wrong place for my questions.
I wrote a freePascal program under Linux (Free Pascal Compiler version 1.0.10
[2003/06/26] for i386), which
reads information from serial ports and sends in
Thank You, Marco, for Your immidiate response!
> >I wrote a freePascal program under Linux (Free Pascal Compiler
> > version 1.0.10 [2003/06/26] for i386), which reads information from serial
> > ports and sends information to serial ports and does some calculations.
> > There are no pointers, invo
12 matches
Mail list logo
