![]() |
|
|
|
|
#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. |