Entwickler-Ecke
Dateizugriff - Einträge aus Memo in ein Edit-Feld
deagle - Fr 22.08.03 02:34
Titel: Einträge aus Memo in ein Edit-Feld
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 :D
Delete - Fr 22.08.03 04:01
Geh die Zeilen deines Memos mit einer for Schleife durch.
Delete - Fr 22.08.03 04:05
Zum Beispiel so:
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
procedure DoSomething;
public
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:
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
procedure DoSomething;
public
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 - Fr 22.08.03 14:46
Danke Luckie,
HAt Super geklappt, wenn man hier User bewerten kann wäre das ne Glatte "10"
Danke!!!!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!