Hallo zusammen,
Ich habe ein kleines Problem uns zwar habe ich folgende codes:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
newitem:tmenuitem;
begin
for i:=0 to listbox2.Items.Count -1 do begin
NewItem := TMenuItem.Create(Parent);
NewItem.Caption := listbox2.Items.Strings[i];
NewItem.OnClick := Fonts1Click;
trayMenu.Items[1].Add(NewItem);
end;
end;
und
Delphi-Quellcode:
procedure TForm1.Fonts1Click(sender:tobject);
var
ip:integer;
begin
ip:=(Sender
as TMenuItem).caption;
scannen(
ip);
end;
So bei dem ersten code wird der String von der Listbox als Caption hinzugefügt, das ist ja soweit in Ordnung.
Aber beim zweiten Code das auslesen macht kleine Probleme.
Beispiel:
Caption beim einlesen ist: 192.168.0.1
und beim ausgeben ist die Caption: &192.168.0.1
so das & ist das Problem das ist überall dabei.
Woher das kommt weis ich leider selber nicht.
Kann mir da bitte einer helfen.
Aber nicht mit der Methode einen Filter einbauen der alle & herausfiltert das kann ich nicht machen bez. der Programm funktion.
Mfg
Tobias