I have problem with two dimension array of string

my program:

procedure testlinie;
var
linie : array[0..1,0..100] of shortstring;
i,ii : integer;
begin
fillchar(linie,sizeof(linie),0);
for i := 0 to 1 do begin
for ii:= 1 to 10 do begin
linie[i,ii]:= linie[i,ii]+char(64+ii);
writeln(i:5,ii:5,linie[i,ii]) ;
end;
end;
end;


during execution output is:
0 1 A
0 2 B
0 3 C etc.

but should be:
0 1 A
0 2 AB
0 3  ABC

on Delphi all works OK.


and second problem is with Watch list: (maybe this part should be on Lazarus list)
I've added Watch at cursor : linie[0,1]
and i see:
for linie[0,1] = {'' <repeats 100 times>} < 1. I want only one string < 2. even that after 5 iteration should be <'A','B','C'>
< 3 and after 15 iteration, for i=1 Watch List is showing line[0,1]= {'A','B','C','D .., for me line [1] is showing not line [0]



I use current (-2 days) FPC

Darek

PS.I know my poor English, but maybe someone understand this.




_______________________________________________ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to