Hey,
ich hab mal eine frage ^^
ich hab ein Prgramm geschrieben doch wenn ich es ausführen/testen möchte funktioniert es nicht.
Es macht den anschein als würde Delphi das Prgramm sofort nach dem Starten wieder beenden aber ich versteh nicht wieso
Ich hoffe ihr könnt mir bei dieser Frage helfen
und
Nein ich will nicths böses mit dem code machen *entäuscht darüber sein, dass ich das hier schreiben muss*
hier ist mein code:
(ja die dinge sind nicht sinnvoll benannt aber ich brauche das nicht. ich hoffe ihr steigt da trotzdem durch ^^)
Delphi-Quellcode:
const Woche28='C:\Users\MeinName\Desktop\Kalender\28.txt';
procedure TForm1.Button2Click(Sender: TObject);
begin
Zwischenspeicher := Memo1.text+ #10#13 + Memo2.Text + Memo3.text+ #10#13 + Memo4.Text + Memo5.text+ #10#13 + Memo6.Text + Memo7.text+ #10#13 + Memo8.Text ;
Zwischenspeicher.SaveToFile(Woche28);
//seit dem ich den Quelltext dieses Buttons geschreibne habe, startet das programm ncith mehr, doch selbst wenn ich den Teil //jetzt ausklammer bringt das das Programm erstauinlicher weise auch nicht wieder zum laufen
end;
procedure TForm1.FormCreate(Sender: TObject);
Var
KWoche : integer;
begin
KWoche := WeekOfTheYear(Now);
KalWo.Caption:= IntToStr(KWoche)+ '. Kalenderwoche';
Zwischenspeicher := TStringList.Create;
if(KWoche = 28) Then begin
if FileExists(Woche28) then Begin
Zwischenspeicher.LoadFromFile(Woche28);
Memo1.Text := Zwischenspeicher[4];
End
else ShowMessage('Die Datei '+Woche28+' wurde nicht gefunden!');
end;
end;