Einträge aus Memo in ein Edit-Feld

deagle · Beiträge: 89

Hallo Leutz,

Also ich habe mal ne Frage, ich habe ips die alle untereinader in einem Memofeld stehen! Das Programm soll dan automatisch eine ip (von Zeile zu Zeile) nacheinade in ein edit-feld reinkopieren und einen Button ausführen! Aber er soll sich dabei 3 Sekunden Zeit lassen bevor er die nächste IP nimmt!

Könnt Ihr mir helfen, ich habe keine blassen schimmer wie ich es mache!

Danke

Euer D-Eagle

Ehemaliges Mitglied Erhaltene Danke: 1

Geh die Zeilen deines Memos mit einer for Schleife durch.

Ehemaliges Mitglied Erhaltene Danke: 1

Zum Beispiel so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure DoSomething;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Loop: Integer;
begin
  for Loop := 0 to Memo1.Lines.Count-1 do
  begin
    Edit1.Text := Memo1.Lines[Loop];
    DoSomething();
  end;
end;

procedure TForm1.DoSomething;
begin
  ShowMessage(Edit1.Text);
end;

Die Methode DoSomeThing von TForm1 kannst du auch in einem Button-Klick Ereignis manuel aufrufen.

Mit Verzögerung:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure DoSomething;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) >= msec;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Loop: Integer;
begin
  for Loop := 0 to Memo1.Lines.Count-1 do
  begin
    Edit1.Text := Memo1.Lines[Loop];
    DoSomething();
    Delay(3000);
  end;
end;

procedure TForm1.DoSomething;
begin
  Caption := Edit1.Text;
end;

deagle · Beiträge: 89

Danke Luckie,

HAt Super geklappt, wenn man hier User bewerten kann wäre das ne Glatte "10"

Danke!!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme