Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Возможно ли составить EDIT1.text из переменных тип

Автор: Mepcuk 11.10.2006, 18:51

Возможно ли составить 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;

Автор: maestro2k 11.10.2006, 19:01

ничего странного.. ты массиву писваеваешь обычную строку..
задай конкретную задачу поможем решить

Автор: _hunter 11.10.2006, 19:03

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

Автор: Mepcuk 11.10.2006, 19:07

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

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

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

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

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

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

Автор: Romikgy 11.10.2006, 19:26

Код


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

Автор: Rodman 11.10.2006, 19:26

Код


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

Автор: _hunter 11.10.2006, 19:28

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

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

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

Автор: Mr.Floppy 11.10.2006, 19:36

Код


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;

Автор: Rodman 11.10.2006, 19:47

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

Автор: Mepcuk 11.10.2006, 20:02

Код


код 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

Добавлено @ 20:03
Эта задача правда неразрешима ???

Автор: Демо 11.10.2006, 20:52

Цитата(Mepcuk @ 11.10.2006, 20:02

)

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

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

Автор: Mepcuk 12.10.2006, 08:31

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

Код


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

Автор: Romikgy 12.10.2006, 08:38

Код


 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;

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

Автор: Mepcuk 12.10.2006, 08:44

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

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

но ShowMessage всегда показывает ' ' пусто smile

Автор: Yanis 12.10.2006, 08:46

Цитата(Mepcuk @ 12.10.2006, 09:31

)

ак воооот SHOWMESSAGE всё время будет показывать ' ' пустое сообщение а не значение поля

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

Автор: Mepcuk 12.10.2006, 11:52

СПАСИБО !!! Вы самые умные ХеЛпЕрЫ на СВЕТЕ smile