Avatar billede smith1 Nybegynder
22. november 2005 - 19:24 Der er 1 kommentar og
1 løsning

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;
Avatar billede smith1 Nybegynder
22. november 2005 - 19:25 #1
f.eks et filnavn der indeholder & tegnet :)
Avatar billede tolderlund Nybegynder
23. november 2005 - 10:21 #2
Jeg tror problemet er noget helt andet.
Du skal sætte AutoHotkey (hedder den vist) property til None på enten menu konponenten eller menuitem, jeg har ikke lige Delphi her.
Hvis property står til automatic vil Delphi selv sætte & på.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 14:04 Pixeline cd’er til PC Af Mathilde i Windows
I dag 01:14 Windows 10 - IIS 10 Af bsn i Windows
I går 20:39 Boot fra USB Af poulmadsen i Windows
I går 11:43 Gmail-ikon på skrivebordet Win 10 Af ErikHg i Fri debat
I går 09:22 Lopslag Af Luffe i Excel