создание приложения в lasarus с выводом времени и даты на форму

[Екатерина 123]

Объясните пожалуйста, я пишу, так сказать, органайзер, при запуске которого на форме отображается расписание занятий, время и дата, календарь и т. д. Я еще не до конца продумала, что еще можно включить в этот органайзер, но факт в том, что расписание готово, оно работает, а вот как остальное делать не пойму!!!!помогите пожалуйста, заранее благодарю за помощь!!!!!
код моего приложения вот
[code]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ColorBox, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    Label1: TLabel;
    ListBox1: TListBox;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  i:integer;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case form1.ComboBox1.ItemIndex of
  0: case form1.RadioGroup1.ItemIndex of
    0:begin
    form1.ListBox1.Items[0]:='алгебра';
    form1.ListBox1.Items[1]:='русский язык';
    form1.ListBox1.Items[2]:='история';
    form1.ListBox1.Items[3]:='музыка';
    form1.ListBox1.Items[4]:='искусствоведение';
    end;
    1:begin
    form1.ListBox1.Items[0]:='алгебра';
    form1.ListBox1.Items[1]:='русский язык';
    form1.ListBox1.Items[2]:='история';
    end;
    2:begin
    form1.ListBox1.Items[0]:='музыка';
    form1.ListBox1.Items[1]:='искусствоведение';
    end;
  end;
1: case form1.RadioGroup1.ItemIndex of
   0:begin
    form1.ListBox1.Items[0]:='геометрия';
    form1.ListBox1.Items[1]:='литература';
    form1.ListBox1.Items[2]:='физкультура';
    form1.ListBox1.Items[3]:='черчение';
    form1.ListBox1.Items[4]:='обществознание';
    form1.ListBox1.Items[5]:='физика';
    end;
    1:begin
    form1.ListBox1.Items[0]:='геометрия';
    form1.ListBox1.Items[1]:='литература';
    form1.ListBox1.Items[2]:='черчение';
    form1.ListBox1.Items[3]:='обществознание';
    form1.ListBox1.Items[4]:='физика';
    end;
    2:begin
    form1.ListBox1.Items[0]:='физкультура';
    end;
  end;
2: case form1.RadioGroup1.ItemIndex of
    0:begin
    form1.ListBox1.Items[0]:='физкультура';
    form1.ListBox1.Items[1]:='химия';
    form1.ListBox1.Items[2]:='геометрия';
    form1.ListBox1.Items[3]:='астрономия';
    form1.ListBox1.Items[4]:='музыка';
    form1.ListBox1.Items[5]:='геограD

[Stilet]

А что остальное?
Чего тут не хватает то?
Вообще-то органайзер по идее удобно хранит данные в базе.
Может тогда тебе стоит использовать базу данных? Или слишком сложно будет?
БД то изучали уже?

[Екатерина 123]

изучали, о сейчас мне как приложение делать надо и я хочу чтоб на форме выводились текущая дата и время, а как реализовать не знаю!! подскажите!!!

подскажите пожалуйста как сделать чтоб отображались текущие дата и время???

Я вот какую процедурку добавила, но она косячит!в чем проблема??

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage (FormatDateTime('Сегодня dddd dd mmm yyyy г.', Date));
end;

по идее должно быть выведено "Сегодня среда 28 май 2014 г."
а выводится "Сегодня ???? 28 ??? 2014 г."
почему!!!!!!
как исправить??

[Екатерина 123]

все теперь работает!!!!!

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage (FormatDateTime('Сегодня dd.mm.yyyy г.', Date));
end;

[Stilet]

а выводится "Сегодня ???? 28 ??? 2014 г."

Юникод )))
Сам с ним намучисля.
Решить можно примерно так:

ShowMessage ('Сегодня '+AnsiToUtf8(FormatDateTime('dddd dd mmm yyyy ', Date)+' г.'));

Теперь кинь на форму компонент StatusBar (Вкладка Common Controls) Добавь в его свойстве Панель и:

procedure TForm1.FormCreate(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:=('Сегодня '+AnsiToUtf8(FormatDateTime('dddd dd mmm yyyy ', Date)+' г.'));
end;

Красиво выведет текущую дату.

[Екатерина 123]

спасибо огромное, очень благодарна!!!!

[Stilet]

Обращайся )
Но не в личку - для таких вопросов форум - самое оно.

[Екатерина 123]

окей))))))))))))))))))))))