jvth
Bonjour a tous
Jai un petit probleme avec Delphi 2010 voici
Programme ecrit avec Delphi 6 ,si j'ouvre le programme avec Delphi 2010 celui ci ne fonctionne plus correctement
Version ecrite avec Delphi 6
/////
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
UpDown1: TUpDown;
UpDown2: TUpDown;
Memo1: TMemo;
Label1: TLabel;
procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
memo1.Text :=FormatDateTime('hh:mm:ss',strtotime(inttostr(updown1.Position)
+':'+ (inttostr(updown2.Position))));
Label1.Caption:=memo1.Text;
end;
procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
memo1.Text :=FormatDateTime('hh:mm:ss',strtotime(inttostr(updown1.Position)
+':'+ (inttostr(updown2.Position))));
Label1.Caption:=memo1.Text;
end;
end.
////
Merci pour votre aide