Здравствуйте. В данный момент, я работаю над программой с помощью форм, где в 10 гаджетах edit объявляет часовые пояса разных городов. В консоли у меня получилось, но в формах и процедурах запутался. Знаю, чтобы получить системное время можно с помощью.
gettime.
- Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
unit2,Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Menus, StdCtrls, crt, dos;
type
{ TForm1 }
TForm1 = class(TForm)
Edit10: TEdit;
Edit11: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Image1: TImage;
Image10: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Label1: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure Edit4Change(Sender: TObject);
procedure Label1Click(Sender: TObject);
end;
var
Form1: TForm1;
h,m,s,ms:word;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Label1Click(Sender: TObject);
begin
form2.ShowModal;
end;
procedure TForm1.Edit4Change(Sender: TObject);
begin
gettime(h,m,s,ms);
edit4.caption:=(h,m,s,ms);
end;
end.
