Generics.collections

[Utkin]

В файле 3 позиции в каждой строке? Что является разделителем между позициями? Табуляция? Пробел? Или пробелы?

Что этот код делать должен?

Он хочет распарсить файл.

[viks1]

Сообщение от lomastr_

Что этот код делать должен?

http://programmersforum.ru/showpost....1&postcount=18

В файле 3 позиции в каждой строке? Что является разделителем между позициями? Табуляция? Пробел? Или пробелы?

пробелы

[Utkin]

Так создай отдельную функцию которая извлекала бы данные в TVlans из обычного String и парсь в цикле.
Типа function Parse(Line: String); TVLans;
Туда будешь отправлять свои линии из TStringList, а оттуда получать уже TVLans, которые корректно будут вгружаться в TList<Vlans>.Add

[viks1]

Сообщение от Utkin

Так создай отдельную функцию которая извлекала бы данные в TVlans из обычного String и парсь в цикле.
Типа function Parse(Line: String); TVLans;
Туда будешь отправлять свои линии из TStringList, а оттуда получать уже TVLans, которые корректно будут вгружаться в TList<Vlans>.Add

Это идея)
пошел кодить)

[Utkin]

Любой. К примеру вот этого:
Код:

TVlans = class(TObject)
id: string;
name: string;
x: String;
end;

Сразу не увидел. Объекты бывают разные. Ваши объекты в данном случае это записи, они пассивны и не имеют своих функций. Их вообще смело можно заменить с Object на объявление обычного record'a. Тогда Create можно не использовать - Делфи сама поймет что это составной тип и его "не нужно" создавать. Создают обычно экземпляры классов это делается для того чтобы они могли запускать во время Create свои функции и процедуры для формирования своих внутренних полей самостоятельно. Для Ваших записей этого совершенно не требуется. Просто последние версии Делфи стирают эту грань между экземпляром класса и обычным record'ом.

[lomastr_]

Задействовать какой TDictionary и смело отказаться от лишних сущностей.

[viks1]

Туда будешь отправлять свои линии из TStringList, а оттуда получать уже TVLans, которые корректно будут вгружаться в TList<Vlans>.Add

То есть V1.Add(моя функция) так?

[Utkin]

То есть V1.Add(моя функция) так?

Это надо проверять. Если не получится, то создашь еще одну переменную. Сначала сохранишь данные из функции туда. Потом уже оттуда добавишь в V1

[viks1]

Как из TList вывести значения в Мемо?
к примеру есть :

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
  SR: TSearchRec;
  S: TStrings;
  St: Tlist<TStrings>;
begin
St:=TList<TStrings>.Create;
  if FindFirst('vlans\*.txt',faAnyFile,SR) = 0 then
  repeat
    S:=TStringList.Create;
    S.LoadFromFile('vlans\'+SR.Name);
    Memo1.Lines.Add(Memo1.Text+#13+S.Text);
    S.Free;
  until FindNext(SR) <> 0;
   FindClose(SR);
   for i := 0 to Memo1.Lines.Count do
St.Add(Memo1.Lines);
St.Sort;
Memo1.Clear;

Memo1.Lines.InsertObject(St)
end;

[lomastr_]

Много ненужных сущностей, отсюда и не понимание что с этим со всем делать.
Зачем постоянно создавать TStringList?
Зачем загружать в мемо если потом опять перегружать в TStrings?