unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, Mask, ExtCtrls, ComCtrls, XPMan, CheckLst,
Grids, ValEdit, Outline, DirOutln, Calendar, Spin, ColorGrd, OleCtrls,
Chartfx3, OleCtnrs, jpeg, Buttons, AlignLabeledEdit, AlignEdit;
type
TForm1 =
class(TForm)
Image: TImage;
edit_Drehbuch: TLabeledEdit;
edit_Regie: TLabeledEdit;
RichEdit: TRichEdit;
Button1: TButton;
Button2: TButton;
MainMenu1: TMainMenu;
edit_Folge: TAlignLabeledEdit;
edit_ErstausstrahlungD: TAlignLabeledEdit;
edit_ErstausstrahlungU: TAlignLabeledEdit;
edit_Titel: TLabeledEdit;
edit_OriginalTitel: TLabeledEdit;
Staffel11: TMenuItem;
N01NichtVonDieserWelt1: TMenuItem;
N02HutungBeiVollmond1: TMenuItem;
N03Feuerball1: TMenuItem;
procedure N01NichtVonDieserWelt1Click(Sender: TObject);
procedure N02HutungBeiVollmond1Click(Sender: TObject);
private
{ Private-Deklarationen }
Folgennummer: Integer;
public
{ Public-Deklarationen }
end;
procedure PlayEpisodeNummer(Folgennummer: Integer);
// Darf nicht in der Klasse TForm1 deklariert werden!
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N01NichtVonDieserWelt1Click(Sender: TObject);
begin
Folgennummer := 1;
PlayEpisodeNummer(Folgennummer);
end;
procedure TForm1.N02HutungBeiVollmond1Click(Sender: TObject);
begin
Folgennummer := 2;
PlayEpisodeNummer(Folgennummer);
end;
procedure PlayEpisodeNummer(Folgennummer: Integer);
begin
case Folgennummer
of
1:
begin // Hier musst du 'begin' schreiben wenn was mehrzeiliges kommt!
Form1.RichEdit.Lines.LoadFromFile('
.\episodes\01.txt');
// Form1 muss ergänzt werden
Form1.Image.Picture.LoadFromFile('
.\images\01.jpg');
end;
// und hier 'end'
2:
begin // hier genauso 'begin'
Form1.richedit.Lines.LoadFromFile('
.\episodes\02.txt');
Form1.Image.Picture.LoadFromFile('
.\images\02.jpg');
end;
// hier ebenfalls 'end'
end;
end;
end.