VPF::Как сгенирировать n-ое количество Edit?

Данил Панфилов

Дата 8.8.2005, 06:34 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Простотите, возможно совсем банальный вопрос, я только начинаю программировать на Delphi и пока путаюсь в особенностях ООП (раньше программировал только на ASM и PHP), а надо срочно сделать одну программку. Но столкнулся вот с такой проблемой, и прошу уважаемое сообщество помочь мне.
Задача: вводится число n от 2 до 22. После нажатия баттон, программа должна вывести n полей Edit: Edit1, Edit2,... EditN дя дальешего ввода информации в эти поля. Напрашивается использовать цикл, но я не нашел решения, как перебирать в циклах индекс Edit...
Помогите, пожалуйста!

Grig

Дата 8.8.2005, 06:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 809
Регистрация: 29.4.2005
Где: Иркутск

Репутация: нет
Всего: 16

посмотри здесь

--------------------

Rrader

Дата 8.8.2005, 06:56 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


Function CreateEdits(Count: Integer): Integer;
Var
  I: Integer;
  E: TEdit;
Begin
  For I := 0 To Count - 1 Do
  Begin
    E := TEdit.Create(NIL);
    E.Parent := Form1;
    E.Top := I * 21 + I * 4;
    E.Left := 200;
  End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateEdits(5);
end;

--------------------

Let's do this quickly!
Rest in peace, Vit!

Guest

Дата 8.8.2005, 08:30 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(Rrader @ 8.8.2005, 06:56)

Код


Function CreateEdits(Count: Integer): Integer;
Var
  I: Integer;
  E: TEdit;
Begin
  For I := 0 To Count - 1 Do
  Begin
    E := TEdit.Create(NIL);
    E.Parent := Form1;
    E.Top := I * 21 + I * 4;
    E.Left := 200;
  End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateEdits(5);
end;

При выполнение вашего кода выдается ошибка "Class TEdit not found"...

Song

Дата 8.8.2005, 08:42 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

Надо код.

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

Guest

Дата 8.8.2005, 08:50 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(Song @ 8.8.2005, 08:42)

Надо код.

Вот код

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


Function CreateEdits(Count: Integer): Integer;
Var
  I: Integer;
  E: TEdit;
Begin
  For I := 0 To Count - 1 Do
  Begin
    E := TEdit.Create(NIL);
    E.Parent := Form1;
    E.Top := I * 21 + I * 4;
    E.Left := 200;
  End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateEdits(5);
end;

end.

Pakshin A. S.

Дата 8.8.2005, 08:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

У меня ваш код работает. Класс TEdit находится в StdCtrls... усе номано... smile

Guest

Дата 8.8.2005, 09:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

все ок, это был глюк какой-то - перезапучтил Delphi и все заработало. Спасибо всем за помощь!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »