|
Registriert seit: 14. Aug 2005
1.858 Beiträge
Delphi 11 Alexandria
|
Re: String To Int/Time
19. Mai 2008, 22:50
Hallo Stelo,
steht doch alles schon in den Beiträgen:
Delphi-Quellcode:
var
min: Extended;
UhrZeit: Extended;
AnfangsUhrZeit: Extended;
I: Integer;
begin
AnfangsUhrZeit:= strToTime('02:00');
min:= strToTime('00:01');
for I := 0 to 61 do
begin
UhrZeit:= AnfangsUhrZeit+(min*i);
ShowMessage(FormatDateTime('HH:NN',UhrZeit));
end;
end;
Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
|