Vielen dank Xong,
ich habe folgende Code, aber irgendwie haut das nicht hin.
ich bin ja kein Profi.
Delphi-Quellcode:
procedure test1;
var MeinText: String;
i: integer;
NewItem: TMenuItem;
begin
MenuItem1 := MenuHaupt.Items.Find('Inhalte');
MeinText := 'A1|B1|C1' ;
L1 := StrSplit(MeinText, ['|']);
for i:=0 to L1.Count-1 do begin
NewItem := TMenuItem.Create(Self);
NewItem.Caption := L1[i];
MenuItem1.Add(NewItem);
end;
end;
ich bekomme als Ergebnis:
Inhalte
|--->A1
|--->B1
|--->C1
statt
|--->A1--->B1--->C1
[edit=Christian Seehase]Delphi-Tags korrigiert (Anwendung: [delphi*]code[/delphi*] jeweils ohne *, oder markieren, und dann den Delphi-Code-Button drücken. Mfg, Christian Seehase[/edit]