Entwickler-Ecke

Dateizugriff - Eine Fragen zum löschen


deagle - Fr 22.08.03 22:53
Titel: Eine Fragen zum löschen
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 - Sa 23.08.03 02:46

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

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:

Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := StringReplace(Memo1.Text,Edit1.Text,'',[rfReplaceAll]);
end;


deagle - Sa 23.08.03 13:40

Danke!!

:D