[Lazarus] Un bug d'affichage dans une application console ?
Hal,
J'ai un problème avec Lazarus.
Dans une application console, je trouve un sérieux bug d'affichage.
Qui peut essayer ce petit programme (pensez à créer un projet pour une console :lol:)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| program test_01;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes,
{ add your units here }
crt;
const
cbl = 255;
var
i: LongInt;
s,s2,s3:ansiString;
// s,s2,s3:shortString;
begin
s := '';
for i:=1 to cbl do s:=s+'k';
writeln('s = <',s,'>');
//readln;
s2 := '';
for i:=1 to cbl do s2:=s2+'a';
textcolor(lightred);
writeln('s2 = <',s2,'>');
//readln;
s3 := '';
for i:=1 to cbl do s3:=s3+'m';
textcolor(lightcyan);
writeln('s3 = <',s3,'>');
readln;
end. |
J'obient un affichage qui n'est pas du tout celui escompté.
Ce n'est pas dû à FreePascal lui-même, car le programme compilé avec miniPascal fonctionne parfaitement.
Est-ce général, ou un problème qui ne se produirait que chez moi ? (je n'ai modifié aucune option de Lazarus, mais on ne sait jamais).
