Memo --> bestimmtes Wort löschen

[Chrissi91]

Ich möchte gerne in einer If - Abfrage abfragen, ob ein bestimmtes Wort enthalten, wenn ja soll er dieses löschen.

Wie folgt wollte ich vorgehen, bis ich irgendwann stutzte und mir die Ideen ausgingen

Delphi-Quellcode:

for i:=1 to length(memo1.text) do
 begin
  if copy(memo1.Text,i,5) <> 'Hallo' then
   begin
    //Hier bin ich stehen geblieben ... Wie lösche ich nun das Wort?
   end;
 end;

Noch etwas: Im Memotext stehen die als "Text" also zum Beispiel:

Hallo ... bla bla ... jkdfdjif ... Hallo ... blabla ... fneijf ... Bla Bla ...

Dann soll das rauskommen und ins selbe Memo übertragen werde (also ersetzt werden )

... bla bla ... jkdfdjif ... ... blabla ... fneijf ... Bla Bla ...

Hoffentlich kann mir jemand helfen

Danke schon im Vorraus!

[MrKnogge]

Probier's doch mal mit delete

[Helmi]

hallo

mach halt das:

  Memo1.Text := StringReplace(Memo1.Text, 'hallo', '', [rfReplaceAll]); so wird jedes Wort "hallo" durch nix ersetzt.

[Chrissi91]

Danke ... Mit delete habe ich es auch schon versucht, aber hab ich net auf die Reihe bekommen dann nehme ich mal die Replacemethode

danke

[Helmi]

ich hab mal ein wenig weiter gemacht, wenn du ne schleife verwenden willst, vielleicht hilft dir das:

Delphi-Quellcode:

uses
  StrUtils;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Text := 'Hallo ... bla bla ... jkdfdjif ... Hallo ... blabla ... fneijf ... Bla Bla ...';

end;

procedure TForm1.Button1Click(Sender: TObject);
const
  Search_Text = 'Hallo';

var
  i: Integer;
  Position: Integer;
  S: String;

begin
  Position  := 1;
  S         := Memo1.Text;

  for i := 1 to length(S) do
    begin
      Position := PosEx(Search_Text, S, Position);

      Delete(S, Position, length(Search_Text));
    end;

  Memo1.Text := S;
end;

[malo]

Grundsätzlich würde ich zum Suchen von Strings die Funktion Pos bzw. PosEx, bzw. PosEx (PosEx ist imho erst mit D6 oder D7 dazugekommen, deshalb haben das nicht alle)

Das nur so am Rande

[Airblader]

Zitat von Chrissi91:

Wie folgt wollte ich vorgehen, bis ich irgendwann stutzte und mir die Ideen ausgingen

Delphi-Quellcode:

for i:=1 to length(memo1.text) do
 begin
  if copy(memo1.Text,i,5) <> 'Hallo' then
   begin
    //Hier bin ich stehen geblieben ... Wie lösche ich nun das Wort?
   end;
 end;

Und da hast du keine Fehlermeldung bekommen?
Du darfst eig. nur bis Length(Memo1.Text)-5 gehen, da du im Copy ja noch +5 machst

Mal abgesehen davon, dass die Methode nicht sonderlich gut ist (Wurde ja gesagt)

air

[MrKnogge]

@Airblader
Du weist nicht ganz was copy macht oder ?

[marabu]

Hallo Leute,

was soll denn nun gelöscht werden - ein Wort oder ein string? Wörter zeichnen sich gegenüber strings dadurch aus, dass bestimmte Bedingungen an das Zeichen davor und danach geknüpft sind. Eure Vorschläge zielen alle auf strings, eingangs wurde aber nach Wörtern gefragt...

Grüße vom marabu

[Chrissi91]

Also letztendlich habe ich mit dem Replace befehl html tags aus einem memo entfernt, in das ich die shoutbox eingelesen habe ... ich versuche das sozusaen nachzumachen mit der shoutbox ...

wie kann ich denn ein einzelnes wort fett schreiben?also mit der replace methode soll Hallo entfernt werden und ein fettes A geschreiben werden, als beispiel.

geht das?