Stunden über 24 Addieren

[HolgerX]

Hmm..

Ich hätte mir das einfacher gemacht:

Delphi-Quellcode:

uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  D : TDateTime;
  H : integer;
  M : integer;
begin
  D := 0.0;
  // Summieren der Zeiten
  for i := 0 to Memo1.Lines.Count-1 do
    D := D + StrToTime(Memo1.Lines[i]);

  // Stunden / Minuten
  H := HoursBetween(0.0,D);
  M := MinuteOf(D);

  ShowMessage(IntToStr(H) + ':' + IntToStr(M));
end;

Solange die einzelnen Zeilen nur Zeitangaben enthalten, sollte es so funktionieren (Getestet mit D6 ).