Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

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);





Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх








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


6-42536           Beginer               2001-10-18 06:32  2002.01.14  
Как прочитать значение IP адреса


4-42614           SergeyDonetsk         2001-11-08 12:50  2002.01.14  
Кто поможет проверить где ошибка?


14-42567          Anatoly Podgoretsky   2001-11-18 17:08  2002.01.14  
TOP TEN


4-42601           Miwa                  2001-11-13 14:33  2002.01.14  
ShellExecute