![]() |
|
|
#1
|
|||
|
|||
![]() Нужно загрузить список в программу с типом Tlist?
|
#2
|
||||
|
||||
![]() А в чем проблемы? Загружай!!!
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
![]() Я не пойму как, приведите кто нибудь пример плиз
|
#4
|
||||
|
||||
![]() Куда ты хочешь его загружать ?
Какой компонент ? Или без разницы ? |
#5
|
||||
|
||||
![]() Код:
procedure TForm1.btLoadClick(Sender: TObject); var MyList: TStringList; // список строк begin MyList := TStringList.Create; try MyList.LoadFromFile('MyFileName'); finally MyList.Free; end; Memo1.Lines.LoadFromFile('MyFileName'); // Memo1.Lines - тоже список строк end; |
#6
|
||||
|
||||
![]() так ему TList надо, я когда то record загружал в TList через указатель на тот самый record:
Код:
type TPluginInfo = record InitInfo: string; Handle: integer; end; PPluginInfo = ^TPluginInfo; var list: TList; PluginInfo,test1: PPluginInfo; begin list := TList.Create; New(PluginInfo); PluginInfo.InitInfo := 'test'; PluginInfo.Handle := 123; list.Add(PluginInfo); // list.Count; // - получить кол-во добавленных элементов test1 := List[0]; // - получить 1ый элемент ShowMessage(test1.InitInfo); //обращение к первому элементу из списка end; Последний раз редактировалось Ultras, 28.02.2010 в 01:37. |