VPF::For to do begin - Форум программистов

vovan430

Дата 3.10.2005, 09:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

Помогите мне пожалуйста почему у меня не работает код

как я не пытался не полусается

Код


var
i:integer;
begin 
 for i:=1 to 10 do begin
   edit[i].text:='a';
 end;
end;

[move][/move] smile

Это сообщение отредактировал(а) vovan430 - 3.10.2005, 09:08

Mayk

Дата 3.10.2005, 09:07 (ссылка)

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

Загрузка ...

^аВаТаР^ сообщение>>

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

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

а что такое n?
И что не получается? Не компилится, не работает?

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

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

vovan430

Дата 3.10.2005, 09:10 (ссылка)

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

Загрузка ...

Шустрый

ошибку выдаёт на .Text

Mayk

Дата 3.10.2005, 09:15 (ссылка)

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

Загрузка ...

^аВаТаР^ сообщение>>

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

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

А что такое edit?
Какую ошибку выдает?

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

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

vovan430

Дата 3.10.2005, 09:19 (ссылка)

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

Загрузка ...

Шустрый

edit это компонент в котором чтонибудь пишешь. Я вот хочу чтоб при нажатии на кнопку содержимое edit1......edit10 .Text становилось буквой А

Mayk

Дата 3.10.2005, 09:20 (ссылка)

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

Загрузка ...

^аВаТаР^ сообщение>>

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

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

Если edit, как это можно предположить, массив указателей, то афаир надо
писать edit[i]^.text

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

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

vovan430

Дата 3.10.2005, 09:21 (ссылка)

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

Загрузка ...

Шустрый

^ - всё из-за этой галочки?
Добавлено @ 09:23
^ - всё из-за этой галочки?

Mayk

Дата 3.10.2005, 09:27 (ссылка)

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

Загрузка ...

^аВаТаР^ сообщение>>

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

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

Цитата(vovan430 @ 3.10.2005, 13:21)

^ - всё из-за этой галочки?

Цитата(Mayk @ 3.10.2005, 13:20)

Если edit --8<-- массив указателей,

Если нет, то играйся с полем .tag.

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

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

Albinos_x

Дата 3.10.2005, 09:34 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Код


 var i : Integer; 
begin 
for i := 0 to 9 do 
  if (Components[i] is TEdit) then 
    (Components[i] as TEdit).Text := 'а'; 
end;

Добавлено @ 09:36
это должно решить проблему... smile

Добавлено @ 09:38
а вообще лучше использовать:

Код


for i := 0 to ComponentCount-1 do

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

~FoX~

Дата 3.10.2005, 09:46 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 13
Всего: 68

Цитата(Albinos_x @ 3.10.2005, 10:34)

а вообще лучше использовать:

Угу, только вот так.

Код


for i :=  ComponentCount-1 downto 0 do

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

…множественность никогда не следует полагать без необходимости…

Rennigth

Дата 3.10.2005, 09:47 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 49
Всего: 76

еще как вариант:

Код


var
  lControl: TControl;
  i: Integer;
begin
for i := 0 to 9 do
begin
  lControl := (FindComponent(Format('Edit%d', i)));
  if Assigned(lControl) then
    (lControl as TEdit).Text := a;
end;

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

(* Honesta mors turpi vita potior *)

Albinos_x

Дата 3.10.2005, 09:55 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата

Угу, только вот так.

в принципе, без разницы и так, и так работает... и так:

Код


for i := 0 to 9 do

при определённых условиях, конечно...

Цитата

var i : Integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TEdit) then
(Components[i] as TEdit).Text := 'а';
end;

если не ошибаюсь, то в FAQ или DRKB это есть...

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Bibimij

Дата 4.10.2005, 20:51 (ссылка)

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

Загрузка ...

Шустрый

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

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

Если знаешь сколько компонентов должно быть на форме, так же можешь воспользоваться массивом из компонентов

Код



var
  form1:tform1;
  edit:array[1..10] of tedit;

//потом при показе формы пишешь:

procedure TForm1.FormShow(Sender: TObject);
var b:byte
begin
//...

 for b:=1 to 10 do begin
    edit[b]:=c.Create(nil);
    edit[b].Parent:=form1
 end;
//...
end;

//ну и затем горячо любимый тобой код... :D 

var
i:integer;
begin 
 for i:=1 to 10 do begin
   edit[i].text:='a';
 end;
end;

Также можно воспользоваться TList'ом... smile

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