Forum: Object-Pascal / Delphi-Language
Delphi
by jfheins,
4. Dez 2004
Welcher Wochentag ist am 2004. Dezember des Jahres 4 ???
(Kein Monat hat 2004 Tage ...)
Forum: Object-Pascal / Delphi-Language
Delphi
by jfheins,
4. Dez 2004
procedure TForm1.Button1Click(Sender: TObject);
begin
//edit1.text:=(IntToStr(WochenTag(Strtoint(edit2.text), strtoint(edit3.text), strtoint(edit4.text)))); // dort kommt kein Fehler
Edit1.Text := FloatToStr(WochenTag(IntToStr(edit2.Text), IntToStr(Edit3.Text), IntToStr(Edit4.Text))); // dort muss man ein bisschen mehr nachdenken, damit auch keiner kommt ...
end;
So ist's zumindest...
Forum: Object-Pascal / Delphi-Language
Delphi
by jfheins,
4. Dez 2004
Zeig mal deinen Quellcode, wie du ihn jetzt hast, und was genau nicht geht bzw. welcher Fehler genau kommt ...
Forum: Object-Pascal / Delphi-Language
Delphi
by jfheins,
4. Dez 2004
Schreib haltprocedure TForm1.Button1Click(Sender: TObject);
begin
showmessage (IntToStr(WochenTag(Strtoint(e1.text), strtoint(e2.text), strtoint(e3.text))));
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by jfheins,
4. Dez 2004
Wenn du
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=FloatTostr(WochenTag(AYear, AMonth, ADay));
schreibst, und AYear, AMonth und ADay vorher nicht definiert hast, woher soll er dann wissen, welchen tag du haben möchtest ?
Probiers mal so:procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=FloatTostr(WochenTag(2004, 12, 4));
P.S. Geändert, aber...
Forum: Object-Pascal / Delphi-Language
Delphi
by jfheins,
4. Dez 2004
Ach. Ist ja interessant. Und, was sagt er?