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

Вниз

TMemo   Найти похожие ветки 

 
$Hic0   (2001-12-26 20:11) [0]

Имеется текстовый файл... из которого считывается информация и заполняются поля массива 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) [1]

Вместо
Inbox[MessagesCount].MHeader:=Memo2;
надо
Inbox[MessagesCount].MHeader.Lines.Assign(Memo2.Lines);
или
Inbox[MessagesCount].MHeader.Lines.AddStrings(Memo2.Lines);





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

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

Наверх




Память: 0.46 MB
Время: 0.012 c
4-42632
AlexKniga
2001-11-15 13:42
2002.01.14
Тип PChar и пустая строка


1-42450
Кандыль
2001-12-24 21:14
2002.01.14
Избитый!


4-42616
Kyd
2001-11-13 11:18
2002.01.14
SendMessage(MyHandle, WM_SetText, 0, Integer(TextToSet));


1-42515
Simonaln
2001-12-26 11:32
2002.01.14
Расстояние между строками в Memo


1-42480
Ser_Kham1
2001-12-25 12:08
2002.01.14
ListBox