IncDay bewirkt Programmabsturz

[LuCSteR]

Hi,

ahbe folgenden Code:

Delphi-Quellcode:

Var
  iDays: integer
  dFutureDate: TDateTime;

Begin  
  //Anz. Tage die add werden sollen
  iDays:=strtoint(Form1.Edit1.Text);

  //Datumsformat festlegen
  ShortDateFormat:= 'dd.mm.yyyy';
  DateSeparator:= '.';

  //sValueDate liegt im Format dd.mm.yyyy als String vor
  dFutureDate:=strtodatetime(sValue1Date);

  //solange iDays aufaddieren bis dFutureDay>HeutigerTag
  repeat IncDay(dFutureDate, iDays);
  until dFutureDate>now;

  //Ausgabe in ListBox1
  Form1.ListBox1.Items.Add(datetimetostr(dFutureDate));
End;

Auch wenn der Starttag iwann 2006 ist, sollte das doch meinen aktuellen Rechner nicht zum Absturz bringen, oder?
Stimmen die Datentypen/-umwandlungen etc? Nutze diese Funktionen zum ersten Mal.

Grüße LuCSteR

[Klaus01]

.. liefert denn StrToDateTime nicht einen Dezimalbruch?

inc(Dezimalbruch,wert) funktioniert nun mal nicht.

Eine normale Additon sollte hingegen funktionieren.

Klaus, vorher (richtig) lesen und dann antworten.

Grüße
Klaus

[angos]

Zitat von LuCSteR:

Hi,

ahbe folgenden Code:

Delphi-Quellcode:

Var
  iDays: integer
  dFutureDate: TDateTime;

Begin  
  //Anz. Tage die add werden sollen
  iDays:=strtoint(Form1.Edit1.Text);

  //Datumsformat festlegen
  ShortDateFormat:= 'dd.mm.yyyy';
  DateSeparator:= '.';

  //sValueDate liegt im Format dd.mm.yyyy als String vor
  dFutureDate:=strtodatetime(sValue1Date);

  //solange iDays aufaddieren bis dFutureDay>HeutigerTag
  repeat 
    //IncDay(dFutureDate, iDays);
    dFutureDate := IncDay(dFutureDate, iDays);
  until dFutureDate>now;

  //Ausgabe in ListBox1
  Form1.ListBox1.Items.Add(datetimetostr(dFutureDate));
End;

Auch wenn der Starttag iwann 2006 ist, sollte das doch meinen aktuellen Rechner nicht zum Absturz bringen, oder?
Stimmen die Datentypen/-umwandlungen etc? Nutze diese Funktionen zum ersten Mal.

Grüße LuCSteR

Bugfix eingabut Incday gibt dir den neuen Datumswert zurück, aber du musst natürlich auch ne Variable damit füllen

Gruß
Ansgar

[LuCSteR]

Oh my God
Wie blind ich doch bin ^^
Warum meckert der Kompiler denn nich O_o

[LuCSteR]

Bah, hängt sich trotzdem noch auf

<EDIT>
Mein Fehler, selbige Routine wird vorher schonmal aufgerufen. Funktioniert nun alles
</EDIT>

[Luckie]

Was verstehst du denn jetzt eigentlich unter abstürzen oder aufhängen?

[LuCSteR]

Das der Prozess nicht terminiert Tut er jetzt aber.

[angos]

Zitat von LuCSteR:

Warum meckert der Kompiler denn nich O_o

Na weil es keinen Grund gibt beim Aufrufen einer Funktion zu meckern. Der Compiler weiss ja nicht warum du die Funktion ausführst und ob du in dem Fall den Rückgabewert benötigst


Gruß
Ansgar