Не могу найти ошибку, при запуске проги выдает ошибку,

← →
Podarok (2008-03-13 13:21) [0]

Выдается ошибка при запуске проги "Property does not Exist"
ltkf. Break , показывает на строчку, отмечу ее***

Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: Tlabel;
Edit1: TEdit;
Button1: TButton;
RadioButton1: TRadioButton;
CheckBox1: TCheckBox;
ComboBox1: TComboBox;
ScrollBar1: TScrollBar;
Bevel1: TBevel;
SpinEdit1: TSpinEdit;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
i: integer;
Result:variant;
Result1:variant;
Prop:variant;
begin
for i:=0 to Form1.ComponentCount-1 do
begin

if Form1.Components[i] is TEdit then
***Result:=GetPropValue(Form1.Components[i],Prop);
end;
for i:=0 to ComponentCount-1 do
begin
Result1:=0;
Result1:=GetPropValue(Form1.Components[i],Result);
end;

← →
Сергей М. © (2008-03-13 13:25) [1]

> ошибка при запуске проги

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

> Property does not Exist

Переменная Prop у тебя не инициализирована, потому и ошибка.

← →
Podarok (2008-03-13 13:28) [2]

прошу прощения, вместо Prop у меня Text стоит,просто ошибся, сюда перепечатал, ошибка возникает при нажатии на кнопку Button1

← →
Сергей М. © (2008-03-13 13:41) [3]

> вместо Prop у меня Text стоит

Значит переменная Prop у тебя не инициализирована требуемым образом, потому и ошибка.

← →
Podarok (2008-03-13 14:09) [4]

спасибо, ошибку исправил

← →
Johnmen © (2008-03-13 15:28) [5]

Мало того, что тупо скопипастил данный ему код, так ещё и про ошибки копипаста пришел спрашивать :)))

Куда катится мир? (с)

← →
Podarok (2008-03-13 15:34) [6]

НЕ копипастил я код, это мой код!))

> Podarok (13.03.08 15:34) [6]
> НЕ копипастил я код, это мой код!))

Ну этот-то глючный [0] конечно же твой.
А я про код функции GetPropValue.
http://delphimaster.net/view/2-1205400085/

Не могу найти ошибку, при запуске проги выдает ошибку, Найти похожие ветки