Wie im Abspann

[TeronG]

1. Mir war grade n bissl fad und da hab ich mal auf die schnelle was zusammengebastelt...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j  : Integer;
  text : TStringList;
begin
  text := TStringList.Create;
  text.LoadFromFile(tg_hier+'text.txt');

  for i := 0 to text.Count-1 do begin
    Memo1.Clear;
    for j := 0 to 10 do begin
      if not (i+j > text.Count-1)
        then Memo1.Lines.Add(text[i+j])
        else Memo1.Lines.Add('');
    end;
    Wait(500); // <-- pause ohne sleep siehe DP
  end;

  text.Free;
end;

2. zu:

Zitat von A-M-X:

Kenn mich da ned aus : wie installiere ich diese komponente??

siehe unten