[Delphi] Найти оптимизацию кода

[anhord]

Здравствуйте всем!
Подскажите/помогите может есть и друге решение в коде ниже. Код как бэ работает, но хотелось бы уточнить, хорошо ли так делать

type
  TTStub=record
    str: string;
  end;
type
  TStub = array of TTStub;
type
  TDaS=record
    Stub: TStub;
    Dictonary:TStringList;
  end;

type
  TForm1 = class(TForm)
   ...
  private
    DaS:TDaS;
   ...
end;

[Luuzuk]

Единственная оптимизация здесь - это размер писанины

TDaS=record
    Stub: array of string;
    Dictonary:TStringList;
  end;

[anhord]

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

Единственная оптимизация здесь - это размер писанины

TDaS=record
    Stub: array of string;
    Dictonary:TStringList;
  end;

Окаy, а если так

type
  TTStub=record
    str: string;
    SQL:string;
    type:integer;
  end;
type
  TStub = array of TTStub;
type
  TDaS=record
    Stub: TStub;
    Dictonary:TStringList;
  end;

type
  TForm1 = class(TForm)
   ...
  private
    DaS:TDaS;
   ...
end;

[Luuzuk]

type:integer;

использовать зарезервированные слова в качестве имен переменных не есть хорошо

так чем вам помочь-то? С описанием типов вроде как и самостоятельно справляетесь, только слово "type" зачем-то каждые пять строк пишете

[anhord]

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

использовать зарезервированные слова в качестве имен переменных не есть хорошо

так чем вам помочь-то? С описанием типов вроде как и самостоятельно справляетесь, только слово "type" зачем-то каждые пять строк пишете

Ой, ну я малясь так глупанул, я так для примера написал, на самом деле там другие имена и типы переменных будут, я просто думал, может есть способ через классы, или как то так это дело все оформить. чтобы попроще смотрелось это все...