Извините, ничего не найдено.

Dimon · 14.03.2010, 18:07

Если брать стандартным способом

TimeText := 'Время - ' + GetHour(Time);
TimeText := TimeText + ':'+ GetMinute(Time);
DrawText(TimeText,50,100);

То если минуты начитнаются с 0, то он не будет показываться, что не очень прикольно смотрится. т.е. вместо 12:02 прога покажет 12:2. Можно ли как нибудь исправить это, чтобы врмеся показывалось полностью, с нулями?

GRAY_WOLF · 14.03.2010, 19:46



Procedure Vremya; 
        var  
    time: integer;  
    s: string;  
begin  
    time := GetCurrentTime;  
    s :=''+ GetDay(time)+ '_'+(GetMonth(time)+1)+ '_'+GetYear(time)+'   '; 
     if GetHour(time) <10 then s :=s+ ' '+ GetHour(time)+':';else s :=s+''+GetHour(time)+':'; 
     
    if GetMinute(time) <10 then s:=s+'0'+GetMinute(time);else s:=s+''+GetMinute(time);// то что тебе нужно 
    
    Font(0);DrawString(s, wi/2 - textwidth(s)/2, 47); 
    Repaint;  
    end;

100% рабочий код. День, месяц, год, время.

DIMMON4IK · 14.03.2010, 19:47

Можно
if GetMinute(Time)<10 then min:='0'+integertostring(GetMinute(Time)) else min:='0'+integertostring(GetMinute(Time));
И так далее

_____
Упс, уже ответили