Procedure dynamisch erstellen und mit Wert füllen ?

[Der_Mod]

Hallo !

Ich müsste wissen, wie ich eine Procedure dynamisch erstellen und mit einem Wert füllen kann ?

Denn ich lese Dateien ein, tue sie mit Pfad in ein Memofeld.
Daraus müsste jeder einzelne Pfad ausgelesen werden, und dementsprechend eine Procedure erstellt werden.
Diese wiederum müsste auch für das Menü verändert werden.

Wie erstelle ich eine Procedure und fülle sie auf diese Art ?:

Delphi-Quellcode:

procedure TForm1.dynamicklick(Sender: TObject);
begin
openfile('software\firefox.txt');
end;

Nicht wundern, openfile verweist auf eine andere Funktion und ist eine Shellexecute


Hier der restliche Code:

Delphi-Quellcode:

var
  NewItem: TMenuItem;
  I : integer;
  PosBefehl:integer;
  Rest:string;
begin
  { Zuerst Trennlinie erstellen }
  {NewItem := TMenuItem.Create(Self);
  NewItem.Caption := '-';  }
  { Neuen Eintrag zu Menü Windows hinzufügen }
 { MainMenu1.Items.Add(NewItem);  }
  { Die Dateien in das Memo einlesen.......  }
  filelist('software\','*.txt',true,memo1.Lines.Create);
  { Für jedes Formular Eintrag erstellen und hinzufügen }
  for  I := 0 to memo1.lines.count-1 do
  begin
    NewItem := TMenuItem.Create(Self);
PosBefehl := Pos('',memo1.lines[i]);
Rest:= Copy(memo1.lines[i],PosBefehl, length(memo1.lines[i]) - PosBefehl+1);
Rest:=StringReplace(Rest, 'software\', '', [ rfreplaceall ]);
Rest:=StringReplace(Rest, '.txt', '', [ rfreplaceall ]);
    NewItem.Caption := Rest;
    NewItem.OnClick:=DynamicKlick;
    MainMenu1.Items[1].Add(NewItem);
  end;

Wow, aber hier gibts coole Smilies

Ok, ich hoffe, ich habe mit diesem Beitrag mal hervorgeschaut und habe soweit alles richtig gemacht

Mfg Der_Mod

[mkinzler]

Pack einen Verweis auf den String in den Tag

[Der_Mod]

Und wie ?

[mkinzler]

Delphi-Quellcode:

procedure TForm1.dynamicklick(Sender: TObject);
begin
    openfile((memo1.lines[ (Sender as TMenuItem).Tag]);
end;
...
NewItem.Tag := i;

[Der_Mod]

Fettes DANKESCHÖN

Das es so leicht ist - hätte ich nicht gedacht, ich suche nun schon in 2 Foren nach Antwort - und hier bekomme ich sie

Vielen Dank


Achja, du hast ne Klammer ) vergessen

Bye Bye, bis zum nächsten Problem


Mfg Der_Mod

[mkinzler]

Zitat:

Achja, du hast ne Klammer ) vergessen Wink

Kann passieren