[Pigmalion]

Доброго времени суток всем.
Подскажите. Есть графическая схема (блоки соединённые линиями,у каждого своё название,присвоенное через массив). Необходимо сохранить схему в порядке выбора блоков в файл.
Если

Код:

 
AssignFile(f,'Схема.txt');
 Rewrite(f);
for i:=1 to 19 do
if Q[i].Pr=true then
Write(f,Q[i].n + ' - ');
CloseFile(f);

то названия сохраняются не в последовательности выбора,а по присвоенным номерам. True - признак что блок выбран.
И как вывести эти же названия на форму при выборе блока?
Т.е. выбираешь, а название в отдельной области на форме, выбираешь следующий, он появляется рядом в виде схемки.

[roamer]

Если объем не большой и есть существенная мотивация хранить инфу в текстовом файле, то лучше сразу же (при запуске программы) читать инфу из текст.файла в какой-то компонент, где есть свойство TStrings.
Работать с этим компонентом, а при закрытии программы - сохранять инфу в текст.файл.

[Pigmalion]

Спасибо,разобрался.

[Pigmalion]

Чтобы не создавать новую тему(да и вопрос наверно довольно глупый),спрошу в своей старой.Есть ли в delphi возможность управления кнопками выключения или перезагрузки,чтобы при работе программы их назначения менялись?

[roamer]

Код:

type
  TForm1 = class(TForm)
    ...
  public
    procedure MyProc1(Sender: TObject);
    procedure MyProc2(Sender: TObject);
  end;
...
implementation
...
procedure TForm1.MyProc1(Sender: TObject);
begin
  ShowMessage('ItsMe: MyProc1');
  btn1.OnClick:=MyProc2;
end;

procedure TForm1.MyProc2(Sender: TObject);
begin
  ShowMessage('ItsMe: MyProc2');
  btn1.OnClick:=MyProc1;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage('Its btn1Click');
  btn1.OnClick:=MyProc1;
end;
...

Или я не правильно понял ?

[Pigmalion]

Я имею ввиду кнопки компьютера на сис.блоке.