Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Возможно ли составить EDIT1.text из переменных тип, :( :exclamation :exclamation 
V
    Опции темы
Mepcuk
  Дата 11.10.2006, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.10.2006
Где: LATVIA, Riga

Репутация: нет
Всего: нет
Возможно ли составить EDIT1.text из переменных типа Integer

Код

procedure YYY;
var
part1,part2:string;
trutru:array[1..5] of string;
begin
   part1:='Edit';
   part2:='.text';
   
   for m:=1 to 5 do 
    begin
      trutru[m]:=part1+IntToStr(m)+part2; !!!!!!! :qstn  :qstn    ПОДСКАЖИТЕ что надо написать потому что так данные поля Edit1.text непередаются 
    end;
PM MAIL   Вверх
maestro2k
Дата 11.10.2006, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
ничего странного.. ты массиву писваеваешь обычную строку..
задай конкретную задачу поможем решить
PM MAIL   Вверх
_hunter
Дата 11.10.2006, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
а где тут передача данных Edit1.text?
то, что ты (предположительно (вызов произвольного метода у произвольного объекта)) пытаешся сделать в делфях невозможно (да и не нужно...)


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Mepcuk
Дата 11.10.2006, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.10.2006
Где: LATVIA, Riga

Репутация: нет
Всего: нет
В том то и дело что необходимо массиву TRUTRU присвоить значение поля ВВОДА Edit1.text, Edit2.text, Edit3.text , которое в свою очередь может принимать различные значения 100, 200, 300 которые вводятся на форме пользователем в поле ввода Edit1,Edit2, Edit3.

Я совсем зеленый  smile  smile

Добавлено @ 19:09 
А как тогда в цикле обработать форму и снять с полей Editx (x порядковый номер) данные чтобы потом их обработать ??

Подскажите готовое решение

Добавлено @ 19:12 
 smile

Добавлено @ 19:12 
 smile 
PM MAIL   Вверх
Romikgy
Дата 11.10.2006, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Код

TEdit(FindComponent('Edit1')).Text:='Xi Xi';



--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Rodman
Дата 11.10.2006, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
Код

procedure YYY;
var
part1,part2:string;
trutru:array[1..5] of string;
begin
...
Edit1.Text:=Edit1.Text+trutur[m];
...
end;



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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
_hunter
Дата 11.10.2006, 19:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
у формы есть свойство Components. у компонента есть имя. перебирай все компоненты типа TEdit и смотри на их имя. если имя подхожит -- читай проперти.

да и по форуму поискать можеш -- пара таких тем уже поднималась...

Добавлено @ 19:29 
Rodman, это немного не с той стороны... ;)


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Mr.Floppy
Дата 11.10.2006, 19:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Код

procedure YYY;
var
  trutru: array [1..5] of string;
  m: byte;
begin
  for m:=1 to 5 do
    trutru[m] := TEdit(FindComponent('Edit'+IntToStr(m))).Text;
end;


Это сообщение отредактировал(а) Mr.Floppy - 11.10.2006, 19:39
PM MAIL   Вверх
Rodman
Дата 11.10.2006, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
_hunter, спасибо... действительно прогнал... Но теперь вижу... Сам с таким сталкивался... но обходил боле сложным путем...


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

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Mepcuk
Дата 11.10.2006, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.10.2006
Где: LATVIA, Riga

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

код Pascal/Delphi 
1:
2:
3:
4:
5:
6:
7:
8:

 procedure YYY;
var
  trutru: array [1..5] of string;
  m: byte;
begin
  for m:=1 to 5 do
    trutru[m] := TEdit(FindComponent('Edit'+IntToStr(m))).Text;
end;

 что то код отказывается передавать содержимое поля Editx.text   :stena  :stena 
 



Добавлено @ 20:03 
что то код отказывается передавать содержимое поля Editx.text   smile  smile

Добавлено @ 20:03 
Эта задача правда неразрешима ???
PM MAIL   Вверх
Демо
Дата 11.10.2006, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50
Цитата(Mepcuk @  11.10.2006,  20:02 Найти цитируемый пост)
что то код отказывается передавать содержимое


Прекрасно все работает.
Обрати внимание на место, где у тебя массив определн. Массив у тебя локальный и ты его нигде не используешь.


--------------------
    
PM MAIL ICQ Skype   Вверх
Mepcuk
Дата 12.10.2006, 08:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.10.2006
Где: LATVIA, Riga

Репутация: нет
Всего: нет
Или я дурак, или я не могу выложить свои мысли понятным языком.ъ

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  trutru: array [1..5] of string;
  m: integer;
begin
  for m:=1 to 5 do
  begin
    trutru[m] := TEdit(FindComponent('Edit'+IntToStr(m))).Text;
ShowMessage(trutru[m]);
end;
end;

end.


 Так воооот SHOWMESSAGE всё время будет показывать ' ' пустое сообщение а не значение поля  smile  smile 
PM MAIL   Вверх
Romikgy
Дата 12.10.2006, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Код

 for m:=1 to 5 do
  begin
trutru[m] := 'Edit'+IntToStr(m);
ShowMessage(trutru[m]);    
trutru[m] := TEdit(FindComponent(trutru[m] )).Text;
ShowMessage(trutru[m]);
end;

посмотри что будет так показывать


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Mepcuk
Дата 12.10.2006, 08:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.10.2006
Где: LATVIA, Riga

Репутация: нет
Всего: нет
Мне нужно в массив передать значение поля Edit1.text, ShowMessage для проверки, произошла передача или нет ! smile  

trutru[m] := TEdit(FindComponent(trutru[m] )).Text;
ShowMessage(trutru[m]);

но ShowMessage всегда показывает ' ' пусто smile  smile 
PM MAIL   Вверх
Yanis
Дата 12.10.2006, 08:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(Mepcuk @  12.10.2006,  09:31 Найти цитируемый пост)
ак воооот SHOWMESSAGE всё время будет показывать ' ' пустое сообщение а не значение поля

Ты уверен, что у тебя на форме существуют Edit1, Edit2.., Edit5?


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1078 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.