Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Suchen der Textteile

    Delphi
    by Fussball-Robby, 10. Mär 2008
  Das ist eine vereinfachte Alternative zur Funktion FirstDelimiter, die dein Delphi ja nicht kennt.
  Einfach mit ins Projekt aufnehmen, und der erste Code von marabu müsste funktionieren
• Forum: Object-Pascal / Delphi-Language

  Re: Suchen der Textteile

    Delphi
    by Fussball-Robby, 10. Mär 2008
  So könnte man es natürlich lösen. Hier mal ein Denkanstoß, den Rest müsstest du aber auch selber hinbekommen.
  function FileName(Name:String):String;
  begin
  Name:=stringreplace(Name,'/','\',);
  Name:=extractfilename(Name);
  Name:=ChangeFileExt(Name,'');
  Result:=Name;
  end;
  
  Oder in einer Zeile: :wink:
• Forum: Object-Pascal / Delphi-Language

  Re: Problem beim Suchen der Textteile

    Delphi
    by Fussball-Robby, 6. Mär 2008
  Kann es sein, dass ExtractFileName nur bei Pfadangaben mit "\" und nicht mit "/" geht? Also bei mir liefert er bei ExtractFileName('http://www.bla.de/bilder/bild123.jpg') "//www.bla.de/bilder/bild123.jpg" zurück
  
  Mfg
• Forum: Object-Pascal / Delphi-Language

  Re: Problem beim Suchen der Textteile

    Delphi
    by Fussball-Robby, 6. Mär 2008
  erstmal muss eine Funktion einen Ergebniswert haben, wenn dus aber so lassen willst, nimm eine prozedur.
  Procedure SucheBild;
  Var Text, Suchtext : String;
  Suchindex, Bildlaenge : Integer;
  begin
  Text:= edtadresse.Text;
  Suchtext := '.jpg';
  Suchindex := Pos(Suchtext, Text);
  Bildlaenge := Length(Text)-Suchindex;
  edt2.Text:=Copy(Text, Suchindex - 3, Bildlaenge); //Der...