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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
| const
// 50 lignes de 70 caractères chacune
datas: array [0..49] of string = (
'1011101110101011110001110101111111001101101111011100101111111111111111',
'0111111101111111111111110011101111111011111110110110111100111110000100',
'1100011110111111011111101111111111101111111001101110101010111111101011',
'1111111111111111111111101101111111110011111011111111011111110111100011',
'1101011111101001010111001111100111111111110111111111111011101011011111',
'0001111011111111001010111101111111111011011110111111110111101111111011',
'0000011111100111110101110111011111111110010111101011101001110010111101',
'0111111100111101111110110101011111111110011111111110100111101111001111',
'1111111101010111111111000111011110111110011111111111111111111111111111',
'1101100001010010011000110111111011101101111111111110110111101011111111',
'1111010111011111001101101111111110101111111000011101001101111101111111',
'0110111101111111111111110111100101111110011101111011001101111111011111',
'1111011111110111101010101101100110100101101111100110111111011111111111',
'0111111111101111011111111111111111111101101110011110000111101111000011',
'1001001101110011111111011111010111111011101101110110110100001111101011',
'1111111101011111111111011100111110111111011111101110111111111111011011',
'1011101011011111101011001111111011111010101110111110100011110111111111',
'1111111000110101101111110011011111111011110001010100111110101111111011',
'1110110011011111011111111111011111111011111110001011111111110011011111',
'0011101111101111011101011111111111111101101111011111011111100110111111',
'1001011111101101111100001001110010100111011110101101111010101111101111',
'0110011110111101101011110111000100111111010101011111111111111111011110',
'1110110111111011111110111011111111101101110011111111110101111110101111',
'1111111101111011100100111111101110111111101101111010011111010111011111',
'1110111101111011111100111110111101111111100110111110111111101111110111',
'1001101110110010111000111100010111011100111111011011110111011101110001',
'1111101101011111001111011110101111101111111101111111110111000011011111',
'1111111111110101111111111110111011111100110011110111111111111111111110',
'1101111011010111100111100111111010000111010101111111111011110111110111',
'0111111101110111010111101111110010011101111001110111100111111101111111',
'1110011101111111101111111101110101101101111111100111110111111111111101',
'0111011100110001010110111111111101111001110110111111001111111111111111',
'1001111010111010111110110110110111111110111001111001111111101111111011',
'1111010101111101111001111010001111111111101111111101111110100111111111',
'1111110111101110000110010110001001111110100011111110111111000101100011',
'1100101010110111010110111111101111100110111111111111111111011111100011',
'1110110111011101110101111101101001010110110110111101111111111101111110',
'0101100101011111111111001101111111100111010111111111111111100110111111',
'0111111111111101000111111110111001111111011001011110011110111101011111',
'1110110111011111110010101110011010111011101010111100110011111111111111',
'1011101111110011111111011011111111101110111111010100111100110010011100',
'1111011111010111001111111110101011101011110111000101111111110100111111',
'1111100011101101111111010111111111011111011101111111010101110111110011',
'1111110111110111111111110011011100111001111011001111110111111011101111',
'1110111111010111100111011100111100101111111101010111111011100111011010',
'1111111100111111011010111111110101101111101100000011110010111010111110',
'0110001111101000111100011110111010111101111110111111101011111111111101',
'1100011100110111111101111011111101111111111111011111111111111011111111',
'0000110111110110111111110101111111001111111110111111011110110111111101',
'1100111011101111111110101111011111011111111011111111110110111011110101');
procedure TForm1.Button1Click(Sender: TObject);
var
h,w: integer;
ligne: string;
aColor: TColor;
begin
for h := 0 to image1.Height-1 do begin
ligne := datas[h];
for w := 0 to image1.Width-1 do begin
if ligne[w] = '0' then aColor := clBlue else aColor := clRed;
image1.Canvas.Pixels[w,h] := aColor;
end;
end;
end; |
Partager