Einzelnen Beitrag anzeigen

ken_jones

Registriert seit: 16. Mai 2005
Ort: Luzern
154 Beiträge
 
Delphi 10 Seattle Enterprise
 
#19

Re: Anfänger sucht....

  Alt 14. Feb 2006, 22:02
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  Fragenlist : TStringlist;
  RbAntw : Array[0..4] of TRadioButton;
  ii : Integer;
begin
  For ii := Low(RbAntw) to High(RbAntw) do
    RbAntw[ii] := TRadioButton.Create(Form1);
  Fragenlist := TStringList.Create;
  Fragenlist.LoadFromFile('C:\Fragen.txt');
  Fragenlist.SaveToFile('C:\Fragen2.txt');
  try
    RbAntw[0].Caption := 'A';
    RbAntw[1].Caption := 'B';
    RbAntw[2].Caption := 'C';
    RbAntw[3].Caption := 'D';
    RbAntw[4].Caption := Fragenlist.Strings[6];
  finally
    Fragenlist.Free;
    For ii := Low(RbAntw) to High(RbAntw) do
      (RbAntw[ii] as TRadioButton).Free;
  end;
end;
Funktioniert einwandfrei...
  Mit Zitat antworten Zitat