Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Непонятный глюк [D6, Win2k, WinXP]

paule © (2005-01-17 04:59:00)
Мастера объясните пожалуйста следующую ситуацию.

Имею в проекте форму, на которой 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'???

begin...end (2005-01-24 14:08:00) [1]
> [5] paule (24.01.05 11:28)

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

paule (2005-01-24 11:28:00) [2]
1. Оптимизация включена?//

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

ASoft (2005-01-18 18:32:00) [3]
Точь-в точь?
Тогда смотри [1]

paule (2005-01-17 11:52:00) [4]
Ну так я так и делаю и в итоге dp пустой

ASoft (2005-01-17 08:10:00) [5]
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;

VMcL (2005-01-17 07:54:00) [6]
>> paule (17.01.05 04:59)

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »