Скачать: CL | DM;

string и memo1.Lines   Найти похожие ветки 

← →
ghg ©   (2003-11-18 15:57) [0]

в design-time в св-во lines вписываю некоторые строки
далее пишу такое

procedure OpenGrid;
var i:integer; s,ss:string;
begin
ss:=Form1.memo1.Lines.text;
...
...
end;

и имею AV на строке присвоения.

Почему?

---

← →
Семен Сорокин ©   (2003-11-18 15:59) [1]

а Form1 существует?

---

← →
ghg ©   (2003-11-18 16:13) [2]

эта процедура используется в Form1.OnShow
так что форма уже создана

---

← →
Reindeer Moss Eater ©   (2003-11-18 16:16) [3]

эта процедура используется в Form1.OnShow

Тогда зачем
ss:=Form1.memo1.Lines.text;

а не
ss:=memo1.Lines.text;

?

так что форма уже создана
Это не значит, что переменная Form1 содержит ссылку не нее.

---

← →
ghg ©   (2003-11-18 16:38) [4]

procedure OpenGrid;
var i:integer; s,ss:string;
begin
ss:=form1.memo1.Lines.text;
With Form1.StringGrid1 do
begin
ColWidths[0]:=16;
ColWidths[1]:=76;
ColWidths[2]:=76;
end;
...
...

если закоментировать выделенную стороку, то все дальше работает
так что по-моему, с Form1 все нормально

---

← →
Reindeer Moss Eater ©   (2003-11-18 16:43) [5]

А по моему все с ней ненормально

---

← →
Reindeer Moss Eater ©   (2003-11-18 16:46) [6]

procedure OpenGrid;
эта процедура используется в Form1.OnShow

Почему бы ей не передать параметром memo1?

---

← →
Семен Сорокин ©   (2003-11-18 16:50) [7]

Reindeer Moss Eater © (18.11.03 16:46) [6]
тогда уж сделать методом класса TForm1

---

← →
icWasya ©   (2003-11-18 18:23) [8]

ну если попробуй решать по частям:

var
Memo :TMemo;
Lines:TStrings;

...
Memo := Form1.Memo1;
Lines:= Memo1.Lines;
SS:=Lines.Text;
...
и где будет ошибка ??

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c