Показать сообщение отдельно
  #28  
Старый 01.07.2019, 00:11
Maks19 Maks19 вне форума
Новичок
 
Регистрация: 19.06.2019
Сообщения: 91
Версия Delphi: Delphi7
Репутация: 10
По умолчанию

Код:
With TModel.Create Do
    begin
      PrjName := 'Project1';
      For I := Low(Sources) To High(Sources) Do
        Sources[i] := Random(10);
      SaveToFile('c:\work\projects\prj1.dat');
      Free;
Подскажите в этом коде что делается?
Ответить с цитированием