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 )
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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).