TMenuItem.Create og & tegn
Når jeg bruger denne kode så bliver der automatisk tilføjet et & tegn (nogle gange) hvordan kan jeg få det væk?StringReplace(Liste.Strings[idx],'&','',[rfReplaceAll, rfIgnoreCase]);
Jeg ved jeg kan bruge dette til at fjerne det extra & der bliver tilføjet af Delphi! men hvis der så er et & tegn som ren faktisk skal være der(f.eks en fil havn der indeholder & tegnet) så vil det også blive fjernet! og det skal det jo ikke
procedure TForm1.LoadMRU;
var
liste : TStringList;
idx : integer;
itm : TMenuItem;
begin
liste := TStringList.Create;
liste.LoadFromFile('sti til din menu fil.txt');
for idx := 0 to liste.count - 1 do
begin
itm := TMenuItem.Create(self);
Itm.Caption := liste[idx];
Itm.OnClick := MRUClicked;
Menu.Items.Add(Itm);
end;
liste.free;
end;
procedure TForm1.MRUClicked(Sender:TObject);
begin
if Sender is TMenuItem then
begin
OpenMRUFile((Sender as TMenuItem).Caption);
end;
end;