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

Вниз

объявление переменной TMemo   Найти похожие ветки 

 
шел мимо решил зайти   (2013-02-13 16:27) [0]

Доброго времени суток, уважаемые мастера.
Вопрос такой, объявляю переменную TMemo, но выдает ошибку при обращении к переменной. Я чтото забываю, подскажите пожалуйста что тут неправильно.

procedure TForm1.Button1Click(Sender: TObject);
var
B : TStrings;
Block : Tmemo;
begin
B := Block.Lines;
B.Clear;
end;


 
sniknik ©   (2013-02-13 16:45) [1]

переменная - объект, нужно создать прежде чем использовать. (так же и под указатель память сначала выделяется после туда пишется/читается)


 
шел мимо решил зайти   (2013-02-13 16:56) [2]

Ясненько, создаю переменную.

Block.Create(self);
B := Block.Lines;
B.Clear;

Все равно выдает ошибку, и разве при create автоматически не выделяется память, разве необходимо выделять память вручную.


 
sniknik ©   (2013-02-13 17:04) [3]

> создаю переменную.
не создаешь. фигня написана. поищи статью "жизнь и смерть в рантайме"... вроде так.


 
Сергей М. ©   (2013-02-13 17:06) [4]


> разве при create автоматически не выделяется память


Выделяется если Create вызывается как метод класса, а не как метод объекта этого класса.


 
icWasya ©   (2013-02-13 17:06) [5]

Объект TMemo должен быть создан с помощью вызова конструктора.
например так

 Block := TMemo.Create(Self);
 Block.Parent := Self;
 Block.Left := 100;
 Block.Top := 100;


или объект должен быть взят готовый
например так
 Block := Self.Memo1;


 
шел мимо решил зайти   (2013-02-13 17:31) [6]

Все спасибо, пошел читать статью.
Отдельное спасибо icWasya ©



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

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

Наверх




Память: 0.47 MB
Время: 0.008 c
15-1369751845
LDV
2013-05-28 18:37
2013.11.17
временный индекс по полю


15-1369945803
Юрий
2013-05-31 00:30
2013.11.17
С днем рождения ! 31 мая 2013 пятница


15-1366819476
Космополит
2013-04-24 20:04
2013.11.17
Skype работает, а интернет нет.


15-1370024837
robt5
2013-05-31 22:27
2013.11.17
.Net из VCL


15-1370184813
Eraser
2013-06-02 18:53
2013.11.17
Panel и fade эффект