/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Countries.pas
38 строк
912 B
Mikhalkovich Stanislav
CodeTemplatesPlugin40.csproj
24 июл 2020, 22:58
24 июл 2020, 22:58
cd227a5
Код
Авторство
О чём код?
unit Countries; type Att = class(System.Attribute) Num: integer; constructor (n: integer) := Num := n; end; ///!# Country = auto class private nm,cap: string; inh: integer; cont: string; public [Att(1)] property Название: string read nm; [Att(2)] property Столица: string read cap; [Att(4)] property Население: integer read inh; [Att(3)] property Континент: string read cont; end; function ЗаполнитьМассивСтран: array of Country; begin var fname := __FindFile('Databases\Страны.csv'); if fname = '' then raise new System.ApplicationException('Не найден массив стран Databases\Страны.csv'); Result := ReadLines(fname) .Select(s->s.ToWords(';')) .Select(w->new Country(w[0],w[1],w[2].ToInteger,w[3])).ToArray; end; begin end.