Einzelnen Beitrag anzeigen

MrReg

Registriert seit: 1. Jan 2006
8 Beiträge
 
Delphi 2005 Personal
 
#5

Re: Probleme bei der Darstellung der Zeit

  Alt 20. Jun 2007, 15:00
So, hier ist der Quelltext:

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, mTSubtrahieren, mTAddieren, mTMultiplizieren,
  mTDividieren;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Namensfeld: TEdit;
         ..... //Es wären sonst zu viele :-)
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c,d,e,f : TTime;
begin
  a:=StrToTime(Edit3.Text+Label32.Caption+Edit4.Text)-StrToTime(Edit1.Text+Label31.Caption+Edit2.Text);
  b:=StrToTime(Edit7.Text+Label42.Caption+Edit8.Text)-StrToTime(Edit5.Text+Label41.Caption+Edit6.Text);
  c:=StrToTime(Edit11.Text+Label52.Caption+Edit12.Text)-StrToTime(Edit9.Text+Label51.Caption+Edit10.Text);
  d:=StrToTime(Edit15.Text+Label62.Caption+Edit16.Text)-StrToTime(Edit13.Text+Label61.Caption+Edit14.Text);
  e:=StrToTime(Edit19.Text+Label72.Caption+Edit20.Text)-StrToTime(Edit17.Text+Label71.Caption+Edit18.Text);
  f:=StrToTime(Edit23.Text+Label82.Caption+Edit24.Text)-StrToTime(Edit21.Text+Label81.Caption+Edit22.Text);
  Label21.Caption:=TimeToStr(a+b+c+d+e+f);
end;

end.
Dabei muss ich noch erwähnen, dass jew. das erste Editfeld die Std, das Label den ":" und das zweite Editfeld die Minuten in jeder Klammer darstellen.

[edit=SirThornberry]erneut Code-Tags durch Delphi-Tags ersetzt - künftig bitte Delphi-tags anstelle von Code-Tags verwenden wenn es um Delphiquelltext geht. Mfg, SirThornberry[/edit]
Philipp
  Mit Zitat antworten Zitat