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 GameField_Fill : integer;
    
    function GameField_Fill : integer;
    begin
    for i := 0 to 7 do
    for j := 0 to 5 do
    begin
    Color_Chars();
    if k = 0 then
    Form1.StaticText7.Caption := Form1.StaticText56.Caption;
    if k = 0 then
    Form1.StaticText7.Color := Form1.StaticText56.Color;
    if k = 0 then
    Form1.StaticText7.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 1 then
    Form1.StaticText8.Caption := Form1.StaticText56.Caption;
    if k = 1 then
    Form1.StaticText8.Color := Form1.StaticText56.Color;
    if k = 1 then
    Form1.StaticText8.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 2 then
    Form1.StaticText9.Caption := Form1.StaticText56.Caption;
    if k = 2 then
    Form1.StaticText9.Color := Form1.StaticText56.Color;
    if k = 2 then
    Form1.StaticText9.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 3 then
    Form1.StaticText10.Caption := Form1.StaticText56.Caption;
    if k = 3 then
    Form1.StaticText10.Color := Form1.StaticText56.Color;
    if k = 3 then
    Form1.StaticText10.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 4 then
    Form1.StaticText11.Caption := Form1.StaticText56.Caption;
    if k = 4 then
    Form1.StaticText11.Color := Form1.StaticText56.Color;
    if k = 4 then
    Form1.StaticText11.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 5 then
    Form1.StaticText12.Caption := Form1.StaticText56.Caption;
    if k = 5 then
    Form1.StaticText12.Color := Form1.StaticText56.Color;
    if k = 5 then
    Form1.StaticText12.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 6 then
    Form1.StaticText13.Caption := Form1.StaticText56.Caption;
    if k = 6 then
    Form1.StaticText13.Color := Form1.StaticText56.Color;
    if k = 6 then
    Form1.StaticText13.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 7 then
    Form1.StaticText14.Caption := Form1.StaticText56.Caption;
    if k = 7 then
    Form1.StaticText14.Color := Form1.StaticText56.Color;
    if k = 7 then
    Form1.StaticText14.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 8 then
    Form1.StaticText15.Caption := Form1.StaticText56.Caption;
    if k = 8 then
    Form1.StaticText15.Color := Form1.StaticText56.Color;
    if k = 8 then
    Form1.StaticText15.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 9 then
    Form1.StaticText16.Caption := Form1.StaticText56.Caption;
    if k = 9 then
    Form1.StaticText16.Color := Form1.StaticText56.Color;
    if k = 9 then
    Form1.StaticText16.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 10 then
    Form1.StaticText17.Caption := Form1.StaticText56.Caption;
    if k = 10 then
    Form1.StaticText17.Color := Form1.StaticText56.Color;
    if k = 10 then
    Form1.StaticText17.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 11 then
    Form1.StaticText18.Caption := Form1.StaticText56.Caption;
    if k = 11 then
    Form1.StaticText18.Color := Form1.StaticText56.Color;
    if k = 11 then
    Form1.StaticText18.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 12 then
    Form1.StaticText19.Caption := Form1.StaticText56.Caption;
    if k = 12 then
    Form1.StaticText19.Color := Form1.StaticText56.Color;
    if k = 12 then
    Form1.StaticText19.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 13 then
    Form1.StaticText20.Caption := Form1.StaticText56.Caption;
    if k = 13 then
    Form1.StaticText20.Color := Form1.StaticText56.Color;
    if k = 13 then
    Form1.StaticText20.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 14 then
    Form1.StaticText21.Caption := Form1.StaticText56.Caption;
    if k = 14 then
    Form1.StaticText21.Color := Form1.StaticText56.Color;
    if k = 14 then
    Form1.StaticText21.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 15 then
    Form1.StaticText22.Caption := Form1.StaticText56.Caption;
    if k = 15 then
    Form1.StaticText22.Color := Form1.StaticText56.Color;
    if k = 15 then
    Form1.StaticText22.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 16 then
    Form1.StaticText23.Caption := Form1.StaticText56.Caption;
    if k = 16 then
    Form1.StaticText23.Color := Form1.StaticText56.Color;
    if k = 16 then
    Form1.StaticText23.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 17 then
    Form1.StaticText24.Caption := Form1.StaticText56.Caption;
    if k = 17 then
    Form1.StaticText24.Color := Form1.StaticText56.Color;
    if k = 17 then
    Form1.StaticText24.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 18 then
    Form1.StaticText25.Caption := Form1.StaticText56.Caption;
    if k = 18 then
    Form1.StaticText25.Color := Form1.StaticText56.Color;
    if k = 18 then
    Form1.StaticText25.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 19 then
    Form1.StaticText26.Caption := Form1.StaticText56.Caption;
    if k = 19 then
    Form1.StaticText26.Color := Form1.StaticText56.Color;
    if k = 19 then
    Form1.StaticText26.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 20 then
    Form1.StaticText27.Caption := Form1.StaticText56.Caption;
    if k = 20 then
    Form1.StaticText27.Color := Form1.StaticText56.Color;
    if k = 20 then
    Form1.StaticText27.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 21 then
    Form1.StaticText28.Caption := Form1.StaticText56.Caption;
    if k = 21 then
    Form1.StaticText28.Color := Form1.StaticText56.Color;
    if k = 21 then
    Form1.StaticText28.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 22 then
    Form1.StaticText29.Caption := Form1.StaticText56.Caption;
    if k = 22 then
    Form1.StaticText29.Color := Form1.StaticText56.Color;
    if k = 22 then
    Form1.StaticText29.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 23 then
    Form1.StaticText30.Caption := Form1.StaticText56.Caption;
    if k = 23 then
    Form1.StaticText30.Color := Form1.StaticText56.Color;
    if k = 23 then
    Form1.StaticText30.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 24 then
    Form1.StaticText31.Caption := Form1.StaticText56.Caption;
    if k = 24 then
    Form1.StaticText31.Color := Form1.StaticText56.Color;
    if k = 24 then
    Form1.StaticText31.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 25 then
    Form1.StaticText32.Caption := Form1.StaticText56.Caption;
    if k = 25 then
    Form1.StaticText32.Color := Form1.StaticText56.Color;
    if k = 25 then
    Form1.StaticText32.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 26 then
    Form1.StaticText33.Caption := Form1.StaticText56.Caption;
    if k = 26 then
    Form1.StaticText33.Color := Form1.StaticText56.Color;
    if k = 26 then
    Form1.StaticText33.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 27 then
    Form1.StaticText34.Caption := Form1.StaticText56.Caption;
    if k = 27 then
    Form1.StaticText34.Color := Form1.StaticText56.Color;
    if k = 27 then
    Form1.StaticText34.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 28 then
    Form1.StaticText35.Caption := Form1.StaticText56.Caption;
    if k = 28 then
    Form1.StaticText35.Color := Form1.StaticText56.Color;
    if k = 28 then
    Form1.StaticText35.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 29 then
    Form1.StaticText36.Caption := Form1.StaticText56.Caption;
    if k = 29 then
    Form1.StaticText36.Color := Form1.StaticText56.Color;
    if k = 29 then
    Form1.StaticText36.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 30 then
    Form1.StaticText37.Caption := Form1.StaticText56.Caption;
    if k = 30 then
    Form1.StaticText37.Color := Form1.StaticText56.Color;
    if k = 30 then
    Form1.StaticText37.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 31 then
    Form1.StaticText38.Caption := Form1.StaticText56.Caption;
    if k = 31 then
    Form1.StaticText38.Color := Form1.StaticText56.Color;
    if k = 31 then
    Form1.StaticText38.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 32 then
    Form1.StaticText39.Caption := Form1.StaticText56.Caption;
    if k = 32 then
    Form1.StaticText39.Color := Form1.StaticText56.Color;
    if k = 32 then
    Form1.StaticText39.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 33 then
    Form1.StaticText40.Caption := Form1.StaticText56.Caption;
    if k = 33 then
    Form1.StaticText40.Color := Form1.StaticText56.Color;
    if k = 33 then
    Form1.StaticText40.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 34 then
    Form1.StaticText41.Caption := Form1.StaticText56.Caption;
    if k = 34 then
    Form1.StaticText41.Color := Form1.StaticText56.Color;
    if k = 34 then
    Form1.StaticText41.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 35 then
    Form1.StaticText42.Caption := Form1.StaticText56.Caption;
    if k = 35 then
    Form1.StaticText42.Color := Form1.StaticText56.Color;
    if k = 35 then
    Form1.StaticText42.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 36 then
    Form1.StaticText43.Caption := Form1.StaticText56.Caption;
    if k = 36 then
    Form1.StaticText43.Color := Form1.StaticText56.Color;
    if k = 36 then
    Form1.StaticText43.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 37 then
    Form1.StaticText44.Caption := Form1.StaticText56.Caption;
    if k = 37 then
    Form1.StaticText44.Color := Form1.StaticText56.Color;
    if k = 37 then
    Form1.StaticText44.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 38 then
    Form1.StaticText45.Caption := Form1.StaticText56.Caption;
    if k = 38 then
    Form1.StaticText45.Color := Form1.StaticText56.Color;
    if k = 38 then
    Form1.StaticText45.Font.Color := Form1.StaticText56.Font.Color;
    
    if k = 39 then
    Form1.StaticText46.Caption := Form1.StaticText56.Caption;
    if k = 39 then
    Form1.StaticText46.Color := Form1.StaticText56.Color;
    if k = 39 then
    Form1.StaticText46.Font.Color := Form1.StaticText56.Font.Color;
    
    k := k + 1;
    end;
    
    end;