Hallo,
die Einträge einer ListBox sind zahlenmäßig nicht festgelegt. Wenn dann ein Array als Speicherstruktur herhalten soll, dann ist da ein dynamisches Array sehr vorteilhaft:
Delphi-Quellcode:
function StrToTimeArray(s: TStrings): TDoubleDynArray;
var
index: Integer;
begin
SetLength(Result, s.Count);
for index := Low(Result) to High(Result) do
Result[index] := StrToTime(s[index]);
end;
procedure TDemoForm.ButtonClick(Sender: TObject);
var
dda: TDoubleDynArray;
total: Double;
begin
dda := StrToTimeArray(RichEdit.Lines);
total := Math.Sum(Copy(dda, 0, 3));
ShowMessage(TimeToStr(total));
end;
Grüße vom marabu