Eine Fragen zum löschen

deagle · Beiträge: 89

Gib es ein Befehl damit man das "Wndows Service Enabled" bei allen ips wegmachen kann? Also damit er danach sucht und löscht?

219.166.28.144 Windows Services Enabled!
219.166.28.144 Windows Services Enabled!
219.166.28.144 Windows Services Enabled!
219.166.28.144 Windows Services Enabled!

Die stehen alle so untereinander!

Danke!!

D-Eagle

Ex0rzist · Beiträge: 550 Win XP Prof. Mandrake 10.0 D6

Dieses Beispiel löscht alle Wörter, die in Edit1 stehen aus Memo1:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
var Temp: String;
begin
Temp := Memo1.Text;
While Pos(Edit1.Text,Temp)>0 do
 begin
  Delete(Temp,Pos(Edit1.Text,Temp),Length(Edit1.Text));
 end;
Memo1.Text := Temp;
end;

Alternativ kannst du auch StringReplace verwenden:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := StringReplace(Memo1.Text,Edit1.Text,'',[rfReplaceAll]);
end;

_________________
If accidentally read, induce vomitting.

deagle · Beiträge: 89

Danke!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme