var
Form1: TForm1;
Zwischenspeicher : TStringlist;
Zwischenspeicher2 : TStringlist;
Textdatei,Textdatei2 :
String;
const Woche='
C:\Users\Ich\Desktop\Kalender\Termine 2009\';
const ext = '
.txt' ;
implementation
{$R *.dfm}
procedure TForm1.InDieMemoFelderSchreiben(
var Textdatei,Textdatei2:
String);
var
i : integer;
zv : integer;
zv2 :integer;
Pruefstring :
String ;
begin
zv := 0;
zv2 := 0;
if FileExists(Textdatei)
and FileExists(Textdatei2)
then begin
Zwischenspeicher.LoadFromFile(Textdatei);
Zwischenspeicher2.LoadFromFile(Textdatei2);
// {und hier kriege ich dann einen Fehler sprich:
"Erste Gelegenheit für
Exception bei $764642EB.
Exception-Klasse EAccessViolation mit Meldung '
Zugriffsverletzung bei Adresse 0046DE99 in Modul 'Projectl.exe'
. Lesen von Adresse 00000000'. Prozess Projectl.exe (4420)
"}
end
else erstellen;
if (Zwischenspeicher.Count > 7)
Then
Stop_prüfen
else
If (Zwischenspeicher2.Count > 7)
then
Stop_prüfen
Else
For i := 0
To 3
do begin
Form1.Memo1.Text := Form1.Memo1.Text + Zwischenspeicher[Zv]+ #13#10;
Pruefstring := Zwischenspeicher[Zv];
if Pruefstring = '
Keine Termine'
then begin
inc(zv);
break;
end;
inc(zv);
end;
[...]
For i := 0
To 3
do begin
Form1.Memo8.Text := Form1.Memo8.Text + Zwischenspeicher2[Zv2]+ #13#10;
Pruefstring := Zwischenspeicher[Zv];
if Pruefstring = '
Keine Termine'
then begin
break;
end;
inc(zv2);
end;
end;
procedure Tform1.Stop_prüfen;
begin
if Zwischenspeicher.Count > 7
then begin
While Zwischenspeicher.Count > 7
do
Zwischenspeicher.Add ( #13#10 + '
Keine Termine');
end
Else
While Zwischenspeicher2.Count > 7
do
Zwischenspeicher2.Add ( #13#10 + '
Keine Termine');
end;
procedure Tform1.Erstellen;
Var
F : Textfile;
begin
if not FileExists(Textdatei)
then Begin
assignfile(f, Textdatei);
rewrite(f);
closefile(f);
while Zwischenspeicher.Count < 8
do begin
Zwischenspeicher.Add('
Keine Termine');
end;
Zwischenspeicher.SaveToFile(Textdatei);
End;
if not FileExists(Textdatei2)
then Begin
assignfile(f, Textdatei2);
rewrite(f);
closefile(f);
while Zwischenspeicher.Count < 8
do begin
Zwischenspeicher.Add('
Keine Termine');
end;
Zwischenspeicher.SaveToFile(Textdatei2);
end;
end;
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);
Datum_Wochen_Start_erstellen ;
end;
end;
end.