Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: Memo Komponente Wörter rausfiltern

    Delphi
    by DeddyH, 6. Jan 2008
  Hab meinen vorherigen Beitrag editiert ;)
• Forum: Netzwerke

  Re: Memo Komponente Wörter rausfiltern

    Delphi
    by DeddyH, 6. Jan 2008
  Sind das immer Zahlen, die Du suchst?
  
  Falls da so ist, versuch es mal so (hab jetzt auch wieder Delphi zur Verfügung):
  uses StrUtils;
  
  procedure TForm1.Button1Click(Sender: TObject);
  const davor = 'view.php?ad=';
  var iPos: integer;
  SuchStr: string;
  begin
• Forum: Netzwerke

  Re: Memo Komponente Wörter rausfiltern

    Delphi
    by DeddyH, 6. Jan 2008
  Dann muss der gesuchte String bereits vorher auftauchen.
• Forum: Netzwerke

  Re: Memo Komponente Wörter rausfiltern

    Delphi
    by DeddyH, 6. Jan 2008
  Also nochmal anders (ich habe hier gerade kein Delphi und kann daher nicht testen):procedure TForm1.Button3Click(Sender: TObject);
  const gesucht = 'view.php?ad=';
  var ipos,suchpos:integer;
  suchstring:string;
  begin
  iPos := Pos(Memo1.Text,gesucht);
  SuchString := '';
  SuchPos := iPos + Length(gesucht);
  while (SuchPos < Length(Memo1.Text)) and (Memo1.Text <> #32) do
  begin
• Forum: Netzwerke

  Re: Memo Komponente Wörter rausfiltern

    Delphi
    by DeddyH, 6. Jan 2008
  Wenn Du die Zeile innerhalb der Schleife dem Memo hinzufügst, ist das ja auch kein Wunder ;) Außerdem scheint es sich ja nicht um den gewünschten Inhalt zu handeln. Da könntest Du mal einen Blick in die Hilfe zu PosEx werfen.
• Forum: Netzwerke

  Re: Memo Komponente Wörter rausfiltern

    Delphi
    by DeddyH, 6. Jan 2008
  Zeig doch mal den bisherigen Code.
• Forum: Netzwerke

  Re: Memo Komponente Wörter rausfiltern

    Delphi
    by DeddyH, 6. Jan 2008
  Sorry, da fehlt eine Klammer.while (SuchPos < Length(Memo1.Text)) and (Memo1.Text <> #32) do
• Forum: Netzwerke

  Re: Memo Komponente Wörter rausfiltern

    Delphi
    by DeddyH, 6. Jan 2008
  Hallo, willkommen in der DP :dp:
  Wenn der String immer nur einmal vorkommt, sollte das im Prinzip recht einfach sein:
  Zunächst die Position des eindeutigen Strings innerhalb des Memos ermittelniPos := Pos(Memo.Text,'view.php?ad=');
  Wird dieser String gefunden, dahinter solange Zeichen einlesen, bis ein Leerzeichen kommt.
  SuchString := '';
  SuchPos := iPos + Length('view.php?ad=');
  while...