Forum: Programmieren allgemein
by Volker Z.,
9. Okt 2013
Hallo,
nope (mit verlaub :wink:), da rechnet nix falsch. Bei klaren Vorgaben, entsprechende Programmierergebnisse. Fehlen diese :gruebel: kann nur geraten werden was der TE den eigentlich will; ich habe geraten und lag da wohl an der einen oder anderen Stelle ein klein wenig daneben (ansonsten konnte ich offenbar weiterhelfen).
Gruß
Forum: Programmieren allgemein
by Volker Z.,
9. Okt 2013
Hallo,
Und wo liegt dann Dein Problem? Wenn die Funktion FormatTime zwei Parameter (Stunde und Minute) nimmt und als Ergebnis sowas wie 22:26 zurückgibt, dann sollte es doch eigentlich nicht so schwer sein die Funktion so umzuschreiben, dass nur ein Parameter (entweder Stunde oder Minute) übergeben wird und der Rückgabewert der entsprechend formatierten Zeichenfolge entspricht.
Also:
...
Forum: Programmieren allgemein
by Volker Z.,
9. Okt 2013
Hallo,
Ist schon richtig für 0..4. Nur nicht mehr -15..-6. Mit MinutesRounded (m - 15) durchaus möglich. Aus den (etwas wirren) Vorgaben des TE war nicht klar abzuleiten was er den eigentlich erreichen möchte. Deshalb habe ich die negativen Fälle mit dem Rückgabewert 0 behandelt.
Und was klappt nicht? Kannst Du mal Infos liefern?
Hast Du es so schon mal versucht
Forum: Programmieren allgemein
by Volker Z.,
8. Okt 2013
Hallo,
bin mir zwar jetzt nicht sicher, ob ich Dein Anliegen richtig verstanden habe (und, ob die Zuordnung der Edits stimmt), Du kannst Dir mal folgendes versuchen:
procedure TForm1.Button1Click(Sender: TObject);
var
h, m, s, z : Word;
function MinutesRounded (const Value : Integer) : Word;
begin
Forum: Programmieren allgemein
by Volker Z.,
7. Okt 2013
Hallo,
Es funktionieren beide Varianten. Vielleicht war ich nicht ausführlich genug.
type
TMinute = 0..59;
TForm1 = class(TForm)
Forum: Programmieren allgemein
by Volker Z.,
7. Okt 2013
Hallo,
nimm ein konstantes Array ARRAY_MIN_QUATER : array of string = ('00', '15', '30', '45');, dann kannst Du mit Edit4.text := ARRAY_MIN_QUATER zuweisen.
Gruß