Delphi Guide
Borland Delphi Enterprise


    In the course of training in programming in Java, Delphi, Visual Basic or C++ trainees are usually offered to write as the first program the program "Hello Word". It is possibly right. As a rule you need only 2-3 code lines to write the program. Would you believe that your second program in any of the languages can contain about 1900 code lines, use scores of objects, process signals from keyboard and work with Timer? And would you believe that programming in one of the languages (VB, Delphi, Java or C++) you would master in 2-3 days two other languages from the list?

Free Java, Delphi, VB programmers tutorial Free eBook

    << Main Page

    About game [Eng]
    Cards version [Rus]
    Photoshop PSD Image [Rus]
    portal.opera.com
    www.excite.co.uk
    gamesites.bluechillies.com
    Automatic change


    
    function Color_Chars : integer;
    
    function Color_Chars : integer;
    begin
    for i := 0 to 7 do
    for j := 0 to 5 do
    if field[i, j] = 0 then
    Form1.StaticText56.Caption := '+1';    add the 1 points to your account
    if field[i, j] = 0 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 0 then
    Form1.StaticText56.Font.Color := $00ffffff;
    
    if field[i, j] = 1 then
    Form1.StaticText56.Caption := '-1';
    if field[i, j] = 1 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 1 then
    Form1.StaticText56.Font.Color := $00ffffff;
    
    if field[i, j] = 2 then
    Form1.StaticText56.Caption := '+5';    add the 4 points to your account
    if field[i, j] = 2 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 2 then
    Form1.StaticText56.Font.Color := $00ffffff;
    
    if field[i, j] = 3 then
    Form1.StaticText56.Caption := '-5';
    if field[i, j] = 3 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 3 then
    Form1.StaticText56.Font.Color := $00ffffff;
    
    if field[i, j] = 4 then
    Form1.StaticText56.Caption := '+10';
    if field[i, j] = 4 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 4 then
    Form1.StaticText56.Font.Color := $00ffffff;
    
    if field[i, j] = 5 then
    Form1.StaticText56.Caption := '-10';
    if field[i, j] = 5 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 5 then
    Form1.StaticText56.Font.Color := $00ffffff;
    
    if field[i, j] = 6 then
    Form1.StaticText56.Caption := '+15';
    if field[i, j] = 6 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 6 then
    Form1.StaticText56.Font.Color := $00ffffff;
    
    if field[i, j] = 7 then
    Form1.StaticText56.Caption := '-15';
    if field[i, j] = 7 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 7 then
    Form1.StaticText56.Font.Color := $00ffffff;
    
    if field[i, j] = 8 then
    Form1.StaticText56.Caption := '+25';
    if field[i, j] = 8 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 8 then
    Form1.StaticText56.Font.Color := $00ffffff;
    
    if field[i, j] = 9 then
    Form1.StaticText56.Caption := 'T';    adds 500 points to your account
    if field[i, j] = 9 then
    Form1.StaticText56.Color := $00ABCFBB;
    if field[i, j] = 9 then
    Form1.StaticText56.Font.Color := $80000008;
    
    if field[i, j] = 10 then
    Form1.StaticText56.Caption := 'P';    adds 100 points to your account
    if field[i, j] = 10 then
    Form1.StaticText56.Color := $00FFC0C0;
    if field[i, j] = 10 then
    Form1.StaticText56.Font.Color := $80000008;
    
    if field[i, j] = 11 then
    Form1.StaticText56.Caption := 'B';    deducts 200 points from your account
    if field[i, j] = 11 then
    Form1.StaticText56.Color := $0080FFFF;
    if field[i, j] = 11 then
    Form1.StaticText56.Font.Color := $80000008;
    
    if field[i, j] = 12 then
    Form1.StaticText56.Caption := 'Z';    zeroes your account
    if field[i, j] = 12 then
    Form1.StaticText56.Color := $00000000;
    if field[i, j] = 12 then
    Form1.StaticText56.Font.Color := $00FFFFFF;
    
    if field[i, j] = 13 then
    Form1.StaticText56.Caption := 'Z';    zeroes your account
    if field[i, j] = 13 then
    Form1.StaticText56.Color := $00000000;
    if field[i, j] = 13 then
    Form1.StaticText56.Font.Color := $00FFFFFF;
    
    if field[i, j] = 14 then
    Form1.StaticText56.Caption := 'End';    ends the game
    if field[i, j] = 14 then
    Form1.StaticText56.Color := $000F0FFF;
    if field[i, j] = 14 then
    Form1.StaticText56.Font.Color := $00FFFFFF;
    
    if field[i, j] = 15 then
    Form1.StaticText56.Caption := '-10';
    if field[i, j] = 15 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 15 then
    Form1.StaticText56.Font.Color := $80000008;
    
    if field[i, j] = 16 then
    Form1.StaticText56.Caption := '-5';
    if field[i, j] = 16 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 16 then
    Form1.StaticText56.Font.Color := $80000008;
    
    if field[i, j] = 17 then
    Form1.StaticText56.Caption := '-1';
    if field[i, j] = 17 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 17 then
    Form1.StaticText56.Font.Color := $80000008;
    
    if field[i, j] = 18 then
    Form1.StaticText56.Caption := '+1';
    if field[i, j] = 18 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 18 then
    Form1.StaticText56.Font.Color := $80000008;
    
    if field[i, j] = 19 then
    Form1.StaticText56.Caption := '+5';
    if field[i, j] = 19 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 19 then
    Form1.StaticText56.Font.Color := $80000008;
    
    if field[i, j] = 20 then
    Form1.StaticText56.Caption := '-25';
    if field[i, j] = 20 then
    Form1.StaticText56.Color := $00BBECF4;
    if field[i, j] = 20 then
    Form1.StaticText56.Font.Color := $80000008;
    
    end;