String mit TTimer

[marabu]

Hallo,

hier das wesentliche in Kürze:

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
    Button: TButton;
    Edit: TEdit;
    Clock: TTimer;
    procedure ClockTimer(Sender: TObject);
    procedure ButtonClick(Sender: TObject);
  private
    dtStart: TDateTime;
    dtClock: TDateTime;
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

procedure TDemoForm.ClockTimer(Sender: TObject);
begin
  Caption := TimeToStr(dtClock + Now - dtStart);
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  i: Integer;
begin
  dtStart := Now;
  i := Succ(Pos(',', Edit.Text));
  dtClock := StrToTime(Copy(Edit.Text, i, 8));
end;

Lass dich nicht dadurch verwirren, dass ich meine Hilfsvariablen dtRead und dtNow umbenannt habe.

Freundliche Grüße