Generics.collections

[viks1]

Доброго времени суток.
Кто то работал в делфи с System.Generics.collections ?

[Человек_Борща]

А с чем у вас проблема?

var
 IntList:TList<Integer>
 StrList:TList<String>

и так далее...

[viks1]

Сообщение от Человек_Борща

А с чем у вас проблема?

var
 IntList:TList<Integer>
 StrList:TList<String>

и так далее...

Я создал свой класс:

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

После я хотел с файла отдельно отформатировать файл под :
номер и имя влана.

var
 V1: TList<TVlans>;
F: TStringList;
  id, name: TVLANS;
  i, j, len: integer;
.....
F := TStringList.Create;
    F.LoadFromFile(OD.FileName);
    for j := 0 to F.Count do
    begin
      id.id := copy(F[j], 1, 5);
      name.name:= copy(F[j], 5, 30);
      len:= Length(F[j])-31;
      Delete(F[j], 31, len);
      if F[j]='' then
      F.Delete(j);
      V1:=TList<TVlans>.Create;
      V1.Add(F[j]);
    end;

проблема вот именно с этой строкой:

V1.Add(F[j]);

[dcc32 Error] Unit1.pas(63): E2010 Incompatible types: 'TVlans' and 'string'

а еще почему то с этой:

Delete(F[j], 31, len);

пишет:

[dcc32 Error] Unit1.pas(59): E2197 Constant object cannot be passed as var parameter

[northener]

а еще почему то с этой:
Delete(F[j], 31, len);

Процедура Delete относится к т.н. "магии компилятора". В нее первым параметром можно передать только простую переменную типа string, но никак не свойство типа string.

[viks1]

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

а еще почему то с этой:
Delete(F[j], 31, len);

Процедура Delete относится к т.н. "магии компилятора". В нее первым параметром можно передать только простую переменную типа string, но никак не свойство типа string.

Магия случается )
пойду исправлю)

[viks1]

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

а еще почему то с этой:
Delete(F[j], 31, len);

Процедура Delete относится к т.н. "магии компилятора". В нее первым параметром можно передать только простую переменную типа string, но никак не свойство типа string.

сработало)

но по прежнему мой TList возмущается на несовместимость типов.
Я похоже не понял принцип совместимости что ли моих классов и типов данных.

[Utkin]

Delete(F[j], 31, len);

Могу предположить что нужно манипуляцию проводить со строкой, а не с элементом TStringList ибо там нефига не строки. Потому наверно может получиться так:

var s: String;
s:=F[j];
Delete(s, 31, len);
F[j]:=s;

V1.Add(F[j]);

Мне кажется справедливый кукиш от делфи.
VLans состоит из двух строк, а Вы ему пропихиваете одну. Я бы тоже негодовал.
Постройте дополнительный экземпляр Vlans, допустим х. Тогда:

x.id:=''; // Ваши данные
x.name:=F[j]; // Это просто пример, а не истина
V1.Add(x);

Писал без делфей, но думаю как-то так.
PS.

 V1:=TList<TVlans>.Create;

Зачем это в цикле? Это должно быть наверно перед циклом. Ощущение, что Вы ищите истину наугад. Продумайте алгоритм перед его реализацией.

[lomastr_]

Тут только то что создание в цикле и есть правильно, остальное нет

[viks1]

begin
    if OD.Execute then
    begin
      F := TStringList.Create;
      F.LoadFromFile(OD.FileName);
      V1 := TList<TVlans>.Create;
      for j := 0 to F.Count do
      begin
        id.id := copy(F[j], 1, 5);
        name.name := copy(F[j], 5, 30);
        len := Length(F[j]) - 31;
        S := F[j];
        Delete(S, 31, len);
        F[j] := S;
        if F[j] = '' then
          F.Delete(j);
        Str.x := F[j];
        V1.Add(Str);
      end;
    end;

Вот что получилось.
Оно запустилось)
Но.. ошибка, как я понял ошибка доступа к памяти

[northener]

for j := 0 to F.Count - 1 do