title image


Smiley Re: Such-Funktionen...?
MoinFangen wir mal an:Neues Project.Zwei Edit-BoxenEin ButtonCode des Button:procedure TForm1.Button1Click(Sender: TObject);Vari:Integer;s,IchSuche:String;begins:=Edit1.Text;IchSuche:=Edit2.Text;for i:=1 to length(s) do beginif copy(s,i,length(IchSuche))=IchSuche then beginShowMessage('Das Wort:( '+IchSuche+' ) wurde gefunden');exit;end;end;ShowMessage('Das Wort:( '+IchSuche+' ) wurde leider nicht gefunden');end;end.In der EditBox1 steht Dein langer Text.In der EditBox2 das Wort das Du suchst aus EditBox1.Ps.Achtung.Bei diesem Bsp. wird auf Gross/Klein-Schreibung geachtet.Easyyyy.Bis denn dann

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: