entsprechender Delphi Code zu VB6?

[FlorianK]

Jetzt müsste es klappen!!!

Delphi-Quellcode:

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.