Sofortiges Beenden des Prgrammes

**gangs-taas**

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 ^^)

zusammenfalten · markieren

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;

Sofortiges Beenden des Prgrammes

Sofortiges Beenden des Prgrammes

Forumregeln