Форум: "Начинающим";
Текущий архив: 2010.12.05;
Скачать: [xml.tar.bz2];
ВнизКараул. Помогите разобраться с TMainMenu. Найти похожие ветки
← →
Andrey K (2010-09-12 00:25) [0]Сохраняю по закрытию программы и, соответственно загружаю пути последних используемых программ в TMainMenu. И в эти пути попадает символ &. Как и когда понять не могу.
procedure TfmUT.FormCreate(Sender: TObject);
var
i: word;
begin //FormCreate
FCoSel := itmSelPro.Count-1; //Количество пунктов в подменю
tu_ini := TIniFile.Create("My.ini");
try
if tu_ini.SectionExists("itmSel") then
for i := 0 to FCoSel do
if tu_ini.ValueExists("itmSel",IntToStr(i)) then
itmSelPro. Items[i].Caption := tu_ini.ReadString("itmSel",IntToStr(i),"");
finally
tu_ini.Free;
//--------------------------------------------------------------------------------------------
procedure TfmUT.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
var
i: word;
begin //FormCloseQuery
tu_ini := TIniFile.Create("My.ini");
try
if tu_ini.SectionExists("itmSel") then tu_ini.EraseSection("itmSel");
for i := 0 to FCoSel do
with itmSelPro do
if Items[i].Caption <> "" then tu_ini.WriteString("itmSel",IntToStr(i), Items[i].Caption);
finally
tu_ini.Free;
//--------------------------------------------------------------------------------------------
Пробовал бороться со злостным & функцией
function TfmUT.DelD(s: string): string;
var
i: word;
begin
while pos(s,"&") > 0 do
begin
i := pos(s,"&");
Delete(s,i,1);
end;
result := s;
end;
Типа:
itmSelPro. Items[i].Caption := DelD(tu_ini.ReadString("itmSel",IntToStr(i),""));
Но pos(s,"&") вообще & не видит.
← →
Джо © (2010-09-12 06:39) [1]
> Как и когда понять не могу.
Понять не сложно.
Символ «&» используется в Caption для того, чтобы выделить подчеркнутую букву в пункте меню: Файл, Правка будут записаны как «&Файл», «&Правка».
> Но pos(s,"&") вообще & не видит.
В функции Pos первый параметр — искомая строка, а не наоборот, как у вас.
← →
Джо © (2010-09-12 06:54) [2]Кстати, вместо pos здесь удобнее воспользоваться однократным вызовом StringReplace.
← →
Anatoly Podgoretsky © (2010-09-12 09:36) [3]> Andrey K (12.09.2010 00:25:00) [0]
AutoHotkeys
← →
Andrey K (2010-09-12 20:51) [4]Спасибо за помощ.
← →
Юрий Зотов © (2010-09-12 22:00) [5]> Пробовал бороться со злостным & функцией
Есть готовая - StripHotkey
← →
Palladin © (2010-09-13 11:20) [6]
> Andrey K (12.09.10 20:51) [4]
Помощь - женского рода, ставим мягкий знак.
← →
Anatoly Podgoretsky © (2010-09-13 13:49) [7]> Palladin (13.09.2010 11:20:06) [6]
Ось, это желтый полосатый мух.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.12.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c