Непонятный глюк

← →
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. Оптимизация включена?//

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

> [5] paule (24.01.05 11:28)

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

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