Umgang mit RadioGroup

[MarquiseDeSade]

Also, hier im Anhang sind nochmal die Schritte von 1 -3:

Bild 1:

Ich wähle die Anzahl der Ausgabe aus.

Bild 2:

Zu sehen ist dort, die zwei Zahlen die als Startwerte der Folge benutzt werden sollen und die unter Bild 1 vorgenommene Auswahl.

Bild 3:

Die Auswahl von Bild 1 springt auf Null und die Textbox bleibt leer.

Delphi-Quellcode:

unit FibuU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Borland.Vcl.StdCtrls, Borland.Vcl.ExtCtrls,
  System.ComponentModel;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    Label3: TLabel;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.nfm}


procedure TForm1.Button1Click(Sender: TObject);
var fibo:array[1..50] of longint;
    auswahl:integer; 
    i:integer;
Begin
auswahl := StrToIntDef(ComboBox1.Text,auswahl);
ComboBox1.Text := IntToStr(auswahl);
  ListBox1.Items.Clear;
    fibo[1]:=StrToInt(edit1.text);
    fibo[2]:=StrToInt(edit2.text); 
      for i:=3 to 50 do 
        Begin 
          fibo[i]:=fibo[i-1]+fibo[i-2]; 
        end; 
          for i:=1 to auswahl do
            Begin 
            listbox1.Items.Add(IntToStr(fibo[i])); 
            end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
end;


end.