TMemo [D5, Win95/98]
$Hic0 © (2001-12-26 20:11:00)
Имеется текстовый файл... из которого считывается информация и
заполняются поля массива Inbox описанного ранее типа TMailBox
TMailBox = Record
MFrom : String[80];
MTo : String[80];
MSubject : String[80];
MHeader : TMemo;
MBody : TMemo;
end;
....
Var
InBox : Array[1..1000] of TMailBox;
.....
Считывание вроде происходит без всяких ошибок. Считваю я не
бог весть как, в кратце. Нахожу ключевое слово в файле и начинаю
считывать строки до тех пор пока не дойду до другого ключевого
слова. Так вот в каждом элементе массива InBox имеется два поля
TMemo. Заношу инфу в них я так:
Условие Начало
ReadLn(InboxF,s);
Memo2.Lines.Add(s);
Конец
Inbox[MessagesCount].MHeader:=Memo2;
Вроде заносит, по крайней мере в Memo2 все отображается...
Теперь я пытаюсь считать из этого массива поле какого-либо
элемента:
If CheckBox1.Checked then
Memo1.Text:=InBox[ListView1.Selected.Index+1].MHeader.Text+InBox[ListView1.Selected.Index+1].MBody.Text
else
Memo1.Text:=InBox[ListView1.Selected.Index].MBody.Text;
Выдается ошибка. Без номера просто Аксес виолатион по адресу
В чем трабла? Помогите плиз :)
Заранее спасибо
Shico
SergVlad (2001-12-26 21:28:00) [1]
Вместо
Inbox[MessagesCount].MHeader:=Memo2;
надо
Inbox[MessagesCount].MHeader.Lines.Assign(Memo2.Lines);
или
Inbox[MessagesCount].MHeader.Lines.AddStrings(Memo2.Lines);
Наверх 
ЧАТ |
Орешник |
|
