Hallo,

ich will gerne über einen Button eine Actionliste ansteuern, dies funktioniert über

Action1.execute auch sehr gut, nun möchte ich gerne über ein Edit.Text Feld in dem Zahlen Werte stehen, dem Button sagen,wenn ich auf den Button klicke soll er 1,2 oder was an Zahlen im Textfeld stehen, das Action1.execute hintereinander ausführen.

Wie funktioniert das ?

Code:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ActnList;

type
TForm1 = class(TForm)
Edit1: TEdit;
ActionList1: TActionList;
Action1: TAction;
Button1: TButton;
procedure Action1Execute(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Action1Execute(Sender: TObject);
begin
showmessage('test')
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Action1.execute
end;

end.

Stichwort Schleife.

Stichwort Code-Tags

Stichwort Delphi-Tags

Immer wieder gut: http://www.delphibasics.co.uk/index.html

Zitat von DeddyH:

Stichwort Schleife.

In diesem Fall:

http://www.delphibasics.co.uk/RTL.asp?Name=For


Grüße, Steku

Naja, while ginge auch. Mir ging es ja nur darum, dass man für sich wiederholende Blöcke Schleifen verwendet/verwenden sollte.