Создание radiobutton

[Яр|/||< (^_^)]

как сделать чтобы я вводил во что-то имена например:
аня
маня
паша
саша
и т.д
а программа создала радио-кнопки с их именами???

[psycho-coder]

Ну как то так

var
  arr: array of String;
begin
  SetLength(arr, N);
  for i := 0 to N - 1 do
    arr[i] := 'Name';

  for i := 0 to N - 1 do
    with TRadioButton.Create(Self) do
    begin
      Name := 'RadioButton'+IntToStr(i);
      Parent := Self;
      Top := i * 20;
      Left := 20;
      WordWrap := true;
      Width := 150;
      Caption := arr[i];
    end;
end;

[Яр|/||< (^_^)]

а чтобы например из мемо1 читал можно???

[psycho-coder]

Можно

var
  arr: array of String;
begin
  SetLength(arr, N);
  for i := 0 to N - 1 do
    arr[i] := 'Name';

  for i := 0 to N - 1 do
    with TRadioButton.Create(Self) do
    begin
      Name := 'RadioButton'+IntToStr(i);
      Parent := Self;
      Top := i * 20;
      Left := 20;
      WordWrap := true;
      Width := 150;
      Caption := Memo1.Lines.Strings[i];
    end;
end;

[Яр|/||< (^_^)]

а какова типа переменные n , i??
и почему у меня эти радио кнопки по левой стенке во всю форму ??

[psycho-coder]

Сообщение от Яр|/||< (^_^)

а какова типа переменные n , i??

Integer

и почему у меня эти радио кнопки по левой стенке во всю форму ??

Потому что так написано в коде

var
  arr: array of String;
begin
  SetLength(arr, N);
  for i := 0 to N - 1 do
    arr[i] := 'Name';

  for i := 0 to N - 1 do
    with TRadioButton.Create(Self) do
    begin
      Name := 'RadioButton'+IntToStr(i);
      Parent := Self;
      Top := i * 20;
      Left := 20;
      WordWrap := true;
      Width := 150;
      Caption := Memo1.Lines.Strings[i];
    end;
end;

А там как Вам надо, так и прописывайте. У меня вообще изначально было так

 with TRadioButton.Create(Self) do
        begin
          Name := Prefix+IntToStr(i);
          Parent := Self;
          Top := Panel2.Height+Panel2.Top + (cnt*20) + 5;
          Left := Panel2.Left;
          OnClick := RBClick;
          WordWrap := true;
          Width := Self.ClientWidth - 50;
          Anchors := [akBottom, akRight, akLeft];
        end;

[Alter]

Используйте компонент TRadioGroup, заполняется через свойство Items.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Memo1: TMemo;
    procedure Memo1Change(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Memo1Change(Sender: TObject);
begin
 RadioGroup1.Items := Memo1.Lines;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
var N :Integer;
begin
  N := RadioGroup1.ItemIndex;
 if RadioGroup1.Items.Count>0 then
 begin
  if (N in [0..RadioGroup1.Items.Count-1]) then
   ShowMessage(Format('Выбранна строка: %d'+#13+'Значение: %s', [N, RadioGroup1.Items.Strings[N]]))
  else
   ShowMessage('Пусто!');
 end
  else
 ShowMessage('Пусто!');
end;

end.