juhu jetzt kriege ich ne meldung 'zu wenig arbeitsspeicher' mit verweis auf eine funktion von der ich dachte das die funktioniert.
ich hab noch diesen teil
den hatte ich oben rausgelöscht weil ich dachte der ist unwichtig...
Delphi-Quellcode:
procedure TForm1.Datum_Wochen_Start_erstellen;
Var
Year : Integer;
Woche : Integer;
Tag : Integer ;
Datum : TDate;
Monat : Word;
Tage : Word;
Jahr : Word ;
begin
Year := StrToInt(Edit8.Text);
Woche := StrToInt(Edit1.Text);
Tag := 1;
Datum := StartOfaWeek(Year,Woche,Tag);
DecodeDate(Datum, Jahr, Monat, Tage);
Edit2.Text := IntToStr(Tage);
Edit3.Text := IntToStr(Monat);
Edit4.Text := IntToStr(Jahr);
end;
und da ist zu wenig arbietsspeicher für da ?!