Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

Непонятный глюк   Найти похожие ветки 

 
paule   (2005-01-17 04:59) [0]

Мастера объясните пожалуйста следующую ситуацию.

Имею в проекте форму, на которой Edit-ы вставляются кодом, типа так:  TEdit.Create(self) и так далее, соответственно, чтобы получить информацию из этого эдита мне нужно поступить следующим образом:

TEdit(FindComponent("EditNAme")).Text;

Я как раз так и делаю:

var
dP:string;
begin
...
dP:=TEdit(FindComponent("EditNAme")).Text;
...
end;

блин..... Отладчиком смотрю : значение TEdit(FindComponent("EditNAme")).Text="12"
, а после выполнения присваивания dP="";

почему dP не присвоилось значение "12"???


 
VMcL ©   (2005-01-17 07:54) [1]

>>paule  (17.01.05 04:59)

1. Оптимизация включена?
2. Переменная dP после присваивания используется?


 
ASoft   (2005-01-17 08:10) [2]

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   Button1: TButton;
   Button2: TButton;
   Label1: TLabel;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
   MyEdit: array [1..3] of TEdit;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i: shortint;
 l,t: integer;
begin
l:=10;
t:=1;
try
for i:=1 to 3 do
 begin
  MyEdit[i]:=TEdit.Create(self);
  MyEdit[i].Name:="Edit"+IntToStr(i);
  MyEdit[i].Left:=l;
  MyEdit[i].Top:=t;
  MyEdit[i].Parent:=Form1;
  t:=t+26;
 end;
 Button2.Enabled:=True;
 except
 Application.Terminate;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var dp: string;
begin
dp:=TEdit(FindComponent("Edit1")).Text;
Label1.Caption:=dp;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button2.Enabled:=False;
end;


 
paule   (2005-01-17 11:52) [3]

Ну так я так и делаю и в итоге dp пустой


 
ASoft   (2005-01-18 18:32) [4]

Точь-в точь?
Тогда смотри [1]


 
paule   (2005-01-24 11:28) [5]

1. Оптимизация включена?//

Оптимизация чего?


 
begin...end ©   (2005-01-24 14:08) [6]

> [5] paule   (24.01.05 11:28)

Оптимизация компилятора. Project -> Options -> Compiler -> Optimization.



Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
3-1104994216
korvin
2005-01-06 09:50
2005.02.06
Индексы пакостят?


1-1106214169
Suvit
2005-01-20 12:42
2005.02.06
входящый параметр


6-1100992028
KarpEn
2004-11-21 02:07
2005.02.06
Как ловчее передать сложную структуру, у которой различный размер


1-1106271780
Viktop
2005-01-21 04:43
2005.02.06
Кодировка?


1-1106341506
mikel
2005-01-22 00:05
2005.02.06
TPanel