Вызвать функцию при открытии программы

@ivan691 · Регистрация: 26.05.2015

Author24 — интернет-сервис помощи студентам

Имеется функция:

Delphi

function PushStringItem(Items: TStrings;
                        const NewItem: string;
                        const Max: Integer = 128): string;
var
  Index, Count: Integer;
begin
  if NewItem = ''
    then Exit;
 
  Index:= Items.IndexOf(NewItem);
 
  if Index < 0
    then begin Items.Insert(0, NewItem);
    items.SaveToFile('RDP.txt');
    end
    else Items.Move(Index, 0);
 
  Count:= Items.Count;
  while Count > Max do
    begin
      Items.Delete(Count - 1);
      Dec(Count);
    end;
 
  Result:= NewItem;
end;

Как сделать так, чтобы она выполнялась при открытии программы?

@predator_ · 03.10.2015, 13:20

вызови ее в процедуре создания формы

Delphi

 procedure TForm1.FormCreate(Sender: TObject);
 begin
  ...
 end;

@Storm Screamer · 03.10.2015, 13:36

В *.dpr файле можешь, как вариант, прописать ее вызов между begin и end.

Delphi

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Соответственно, функция должна быть описана выше.

Verevkin · 04.10.2015, 03:03

Ух-ты! Это ж моя функция, я её лет 10 назад написал. Гляжу, даже параметр по умолчанию сохранился (128).
Ума не разложу, зачем тебе понадобилось вызывать её при запуске программы?
А вот сохранение в файл ты туда зря засунул. Не надо так.

@ivan691 · 04.10.2015, 08:45 **[ТС]**

Пишу RDP клиент. Твоя функция пригодилась мне для просмотра списка рдп (все что я вводил). Вот мне и надо чтобы список загружался не по нажатию кнопки, а по открытию программы.

Добавлено через 33 секунды
Сохранение в файл нормально работает.

@Sfairath · 04.10.2015, 10:10

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

Result:= NewItem;

Зачем?

Verevkin · 04.10.2015, 14:31

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

Вот мне и надо чтобы список загружался не по нажатию кнопки, а по открытию программы.

так внутри функции нет никакой загрузки данных-то.
ничего не понимаю.

@ivan691 · 04.10.2015, 15:21 **[ТС]**

Delphi

1 2	items.SaveToFile('RDP.txt'); items.LoadFromFile('RDP.txt');

Verevkin Злостный нарушитель 9491 / 5138 / 1172 Регистрация: 12.03.2015 Сообщений: 24,220
	04.10.2015, 03:03	4
	Ух-ты! Это ж моя функция, я её лет 10 назад написал. Гляжу, даже параметр по умолчанию сохранился (128). Ума не разложу, зачем тебе понадобилось вызывать её при запуске программы? А вот сохранение в файл ты туда зря засунул. Не надо так. 0

@ivan691 0 / 0 / 0 Регистрация: 26.05.2015 Сообщений: 131
	04.10.2015, 08:45 [ТС]	5
	Пишу RDP клиент. Твоя функция пригодилась мне для просмотра списка рдп (все что я вводил). Вот мне и надо чтобы список загружался не по нажатию кнопки, а по открытию программы. Добавлено через 33 секунды Сохранение в файл нормально работает. 0

@Sfairath 20 / 20 / 7 Регистрация: 08.07.2015 Сообщений: 176
	04.10.2015, 10:10	6
	Сообщение от ivan691 Result:= NewItem; Зачем? 0

Verevkin Злостный нарушитель 9491 / 5138 / 1172 Регистрация: 12.03.2015 Сообщений: 24,220
	04.10.2015, 14:31	7
	Сообщение от ivan691 Вот мне и надо чтобы список загружался не по нажатию кнопки, а по открытию программы. так внутри функции нет никакой загрузки данных-то. ничего не понимаю. 0

	04.10.2015, 15:21