[lmikle]

Бли-и-и-и-ин...
Ну для простоты примера написал цикл...
Что мешает передавать по элементу???

Код:

Sources[1] := Dmin;
Sources[2] := lnas;
...

PS. Да, ягляжу, что у тебя числа не целые. Соответсвенно, надо поменять типа на Double...

PPS. Кстати, через RTTI можно попробовать и через цикл передать... что-то типа

Код:

For I := Low(Sources) To High(Sources) Do
  Sources[i] := StrToFloat((FindComponent('Edit'+IntToStr(I)) As TEdit).Text);

Синтакс не проверял...

[Maks19]

Записалось в файл в зашифрованном виде:
 Project1B`еРyй&1тТMb33333333бz® \ЏВх\ЏВх®GбffffX9ґ

[lmikle]

Не в зашифрованном, а в бинарном.
Возьми второй код, считатй файл в новый экземпляр и посмотри полученные значения из кода (ну или просто напиши код восстановления данных в контролах).

[Maks19]

По нажатию button2 ошибка "stream read error"

[Maks19]

По нажатию button2 ошибка "stream read error"

[Maks19]

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

По нажатию button2 ошибка "stream read error"

Я ошибку сделал в unit2

[Maks19]

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

Не в зашифрованном, а в бинарном.
Возьми второй код, считатй файл в новый экземпляр и посмотри полученные значения из кода (ну или просто напиши код восстановления данных в контролах).

Не подскажите. Какой второй код? Какой второй файл и новый экземпляр?

[lmikle]

Втророй код, это тот пример, где идет загрузка данных, по button2.
Шибку прввь, я код проверял, он точно рабочий.

[Maks19]

Также в бинарном виде.

[lmikle]

ну естественно. Если внимательно посмотришь на код, то увидишь, что он зеркальный. Что пишется, то и читается.

[Maks19]

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  With TModel.Load('c:\work\projects\prj1.dat') Do
    begin
      ShowMessage(PrjName);
      Free;
    end;
end;

этот имеется в виду? А как увидеть в читаемом виде?

[lmikle]

Да, этот.
Ну тут показывается имя проекта. Что мешает вывести другие поля?
Например:

Код:

s := '';
for i := Low(Sources) to high(Sources) Do
  s := s + ' ' + FloatToStr(Sources[i]);
showmessage(s);

[Maks19]

Я хотел чтобы через combobox вводились проекты. Т.е меняем в combobox имя ,меняется исх. данные в edit. Так как сделать?

[lmikle]

Ну, например, сохранять файлы в подкаталог программы (не давая пользователю вводить имя файла). При старте программы просто читаешь все файлы в список и заполняешь ComboBox именами проектов.

Код:

type
  TForm1=class(TForm)
  ...
  private
    ProbjectList : TObjectList;
  ...
  end;

procedure Form1.FormCreate(Sender : TObject);
var
  dataPath : String;
  F : TSearchRec;
  i : Integer;
  M : TModel;
begin
  ComboBox1.Items.Clear;
  ProjectList := TObjectList.Create(True);
  dataPath := IncludeTrailingPathDelimiterIncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'Data');
  i := FindFirst(dataPath + '*.dat',faAnyFile,F);
  While i = 0 Do
    Begin
       Try
          M := TModel.Load(dataPath + F.Name);
          ProjectList.Add(M);
          ComboBox1.Items.AddObject(M.PrjName,M);
       Except
       End;
      i := FindNext(F);
    End;
  FindClose(F);
end;

procedure Form1.FormDestroy(Sender : TObject);
begin
  ProjectList.Free;
end;

[Maks19]

не давая пользователю вводить имя файла

Я хотел чтобы через combobox как раз вводились проекты пользователем.