Text aus .txt auslesen

[Iscye]

Hallo

ich habe eine Problem beim auslesen eines Textes. Wenn ich den Text im Moment auslese wird dabei die erste Zeile ausgelesen dann die Zweite. Dabei wird aber die Zweite über die Erste überschrieben. Am Ende wird trotzdem nichts in meinem Label angezeigt. Das muss ich irgendwie umgehen sodass der komplette Text zum Schluss in mein Array gespeichert werden kann und ich dieser dann später in einem Label angezeigt wird.


Auslesen:

Code:

Assignfile(RB, 'Raumschiff_bewegen.txt');
  Reset(RB);
  while not eof(RB) do
  begin
    readLn(RB, RaumschiffBewegen);
  end;
  closefile(RB);

Kompletter Code bisher (sehr viel ausgeklammert):

Code:

Const Anzahl_Text = 5;

Type tTextArray = Array [1..Anzahl_Text]of string;

VAR AktText:Integer;
    TextArray: tTextArray;
    Einleitung : string;
    RaumschiffBewegen : string;
    RohstoffeVerladen : string;
    FighterHerstellen : string;
    FightModus : string;


procedure THilfeForm.FormCreate(Sender: TObject);
VAR
  E : Textfile;
  RB : Textfile;
  RV : Textfile;
  FH : Textfile;
  FM : Textfile;
begin
   //Initialisierung Texte
  TextArray[1] := 'Um ein neues Spiel zu starten klickt man auf Neu (im Moment nur diese Option möglich';
  TextArray[2] := RaumschiffBewegen;
  TextArray[3] := 'wafafwatagRohstoffeVerladen';
  TextArray[4] := 'sfaksfadagFighterHerstellen';
  TextArray[5] := 'sfdagkagdjkgdjFightModus';

  AktText := 1;
  TextLabel.Visible := true;
  TextLabel.Caption := ' ';
  TextLabel.Caption := TextArray[AktText];
  VorButton.visible := true;
  ZurueckButton.Visible := false;

  {Assignfile(E, 'Einleitung.txt');
  Reset(E);
  while not eof(E) do
  begin
    readLn(E,Einleitung);
  end;
  closefile(E);
  TextLabel.Caption :=Einleitung; }

  Assignfile(RB, 'Raumschiff_bewegen.txt');
  Reset(RB);
  while not eof(RB) do
  begin
    readLn(RB, RaumschiffBewegen);
  end;
  closefile(RB);

  {Assignfile(RV, 'Rohstoffe_verladen.txt');
  Reset(RV);
  while not eof(RV) do
  begin
    readLn(RV, RohstoffeVerladen);
  end;
  closefile(RV);

  Assignfile(FH, 'Fighter_herstellen.txt');
  Reset(FH);
  while not eof(FH) do
  begin
    readLn(FH, FighterHerstellen);
  end;
  closefile(FH);

  Assignfile(FM, 'Fight_Modus.txt');
  Reset(FM);
  while not eof(FM) do
  begin
    readLn(FM, FightModus);
  end;
  closefile(FM); }
end;

procedure THilfeForm.VorButtonClick(Sender: TObject);

begin
  if aktText = 5 then
    ZurueckButton.Visible := true
  else
  begin
    aktText := aktText + 1;
  TextLabel.Caption := TextArray[aktText];
  TextLabel.Visible := true;
  end;
end;

procedure THilfeForm.ZurueckButtonClick(Sender: TObject);
{VAR
  TextArray:tTextArray;
  i : Integer;}
begin
  {aktText := aktText - 1;
  TextLabel.Caption := ' ';
  i := aktText;
  TextLabel.Caption := TextLabel.Caption + TextArray[i];}
end;