← →vic_774N
(2002-02-07 00:20)
[4]
procedure Твоя процедура;
var
i: integer;
AllLoadFiles: integer;
MI: TMenuItem;
PM: TPopupMenu;
IniFile: TIniFile;
IniData: TStringList;
begin
for i := 0 to AllLoadFiles - 1 do begin
MI := TMenuItem.Create(Self);
PM.Items.Add(MI);
MI.Caption := IniFile.ReadString(User,IntToStr(i),"");
IniData.Append(MI.Caption);
MI.Caption := IntToStr(i)+". "+ MI.Caption;
MI.Tag := i;
MI.OnClick := FileLoadClick;
end;
end;
AllLoadFiles - твои файлы (поставь ограничение до 5)
ну а как работать с ini файлами разберешься.
Помогите гарны хлопчики и дивченки Найти похожие ветки
← →