Всем привет, мне скучно, решил поиграться в Pascal/Delphi, так я каратаю и убиваю время. Если вы читаете это, то мне удалось поставить Delphi 6 на Windows 8.1:

Итак расчехляю Delphi 6:

Это то, что было в коробке:

Это схема объектов/классов Delphi 6:

Это документация:

Это установочный диск:

1. Итак начнём с установки:

Теперь давайте напишим код:

Так выглядет среда разработки:

2. Добавим элемент Label в форму Form1:

3. Сделаем для Label1 AutoSize := True;:

4. Изменим шрифт Label1, нажмём на Font, а затем нажмём на ...:

5. Выберим шрифт MS Sans Serif, Standard, 30:

Теперь будет Label1 выглядеть так:

6. Добавим Timer на форму Form1:

7. Напишим такой код:

8. Изменим заголовок формы Form1 на Uhr:

Будет теперь форма выглядеть так:

9. Вуаля!

Код:

{ Часы тик-так, автор: uscheswoi_82 }
unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;


type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Now); { Отображаем текущее время }
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := true; { Активируем таймер }
  Timer1.Interval := 1000; { Таймер срабатывает каждый 1 тыщ мсек. }
end;


end.

кто как обзывается, тот так сам называется... маску ношу чтобы не заразить антиваксеров... Дневник тяжелобольного инвалида

Программировать на Pascal-е учили в ВУЗе в Алматы в 2000 по 2002 года, учился по этой книжки С.А.Немнюгин Turbo Pascal, мой преп просил меня чтобы я ему эту книгу подарил, но я её не подарил, а взёл её с собой в Германию:

кто как обзывается, тот так сам называется... маску ношу чтобы не заразить антиваксеров... Дневник тяжелобольного инвалида