TDataPoint<T> review

This commit is contained in:
Michael Schimmel
2025-06-11 08:53:30 +02:00
parent 3cfca1f167
commit d282d2c40d
3 changed files with 46 additions and 42 deletions
+6 -4
View File
@@ -13,19 +13,21 @@ type
end;
TDataPoint<T> = record
Idx: Int64;
Time: TDateTime;
Data: T;
constructor Create(AIdx: Int64; ATime: TDateTime; const AData: T);
constructor Create(ATime: TDateTime; const AData: T);
end;
IMycStream<T: record> = interface
procedure Add(const Data: TDataPoint<T>);
end;
implementation
{ TDataPoint }
constructor TDataPoint<T>.Create(AIdx: Int64; ATime: TDateTime; const AData: T);
constructor TDataPoint<T>.Create(ATime: TDateTime; const AData: T);
begin
Idx := AIdx;
Time := ATime;
Data := AData;
end;