Bitweises kopieren aus einem String

[marabu]

Hallo Ansgar,

ist jetzt völlig off-topic, aber dein Beispiel mit dem Timestamp der externen Hardware: so sieht ein DOS-Timestamp aus, wenn man ihn um ein Bit nach links schiebt um die Sekundenauflösung von zwei auf eins zu erhöhen.

Delphi-Quellcode:

uses
  DateUtils; // OneSecond

function TimeStampToDateTime(ts: DWORD): TDateTime;
begin
  Result := FileDateToDateTime(ts shr 1) + OneSecond * Ord(Odd(ts));
end;

So oder ähnlich geht das dann vielleicht auch.

Freundliche Grüße