Ik heb een functie gemaakt voor mijn scraper (epg data scraper) - om een timeshift toe te voegen aan de kanalen in het xmltv bestand;
Delphi Code:
function FormatTimeShift : string;
begin
Result := '';
if TimeShift = 0 then Result := '+0000';
if TimeShift > 0 then
begin
if TimeShift > 9 then
Result := Format('+%d00', [TimeShift]) else
Result := Format('+0%d00', [TimeShift]);
end else
if TimeShift < 0 then
begin
if TimeShift < -9 then
Result := Format('-%d00', [TimeShift]) else
Result := Format('-0%d00', [TimeShift]);
end;
end;
Enige probleempje is dat dit perfect werkt voor positieve getallen, maar bij negatieve getallen krijg ik een vreemde output.. Nu gebruik ik format meestal in de vorm van %d of %s maar dit is de eerste keer dat ik het zo probeer, misschien iemand hier die me kan helpen? Want zit er al paar dagen mee te "stoeien" maar lijkt alleen maar slechter te worden wat ik ook probeer..
Bij -1 krijg ik er uit -0-100 en bij -10 krijg ik --1000
Bij 1 (+1) krijg ik +0100 en bij +10 krijg ik +1000
De positieve getallen werken dus perfect, de negatieve lukken me niet. Wie weet waar ik het moet zoeken?
Bookmarks