hey
ich weiß nicht ob es euch/mir hilft aber ich habe sowohl
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
Var
KWoche : integer;
begin
KWoche := WeekOfTheYear(Now);
Edit1.TExt:= IntToStr(KWoche);
Zwischenspeicher := TStringList.Create;
if(KWoche > 0) Then begin
Textdatei := woche+IntToStr(KWoche)+ext;
Textdatei2 := woche+(IntToStr(KWoche +1))+ext;
InDieMemoFelderSchreiben(Textdatei, Textdatei2); //hier eine Breakpoint
Datum_Wochen_Start_erstellen ; //und hier einen Breakpoint
end;
end;
und den breakpoint bei Indiememo.... löst noch nicht den fehler aus und in der nächsten zeile wird der fehler erst ausgelöst, nachdem ich hier :
Datum_Wochen_Start_erstellen ; //und hier einen Breakpoint
auf F9 drücke. Meine breakpoints hier :
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); // hier ist nen brakpoint
Woche := StrToInt(Edit1.Text); // und hier
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;
kommen aber erst NACH dem fehler ...
wie kann das sein ?!