dgTeaTime - Version 0.1

[turboPASCAL]

Nettel Teil.
Aber für mein ab 18 & 18.00Uhr Tee-Kaltgetränk nicht geeignet.

Ich habe einen Minifehler gefunden. Du solltest bei:

Delphi-Quellcode:

function DisplayTime(sTime: Integer): Pchar;
var
  Tmp: String;
begin
  Tmp := IntToStr(sTime div 60) + ' m '; // <--<< deswegen
  If (sTime mod 60) <> 0 then
    Tmp := Tmp + IntToStr(sTime mod 60) + ' s';
  Result := PChar(Tmp + #0); // <--<< hier mal noch eine #0 dazu
end;

den String Terminieren. Sonst kann es vorkommen das sich seltsame Zeichen einschleichen.

[Mithrandir]

Hoppla.

Danke.