Forum: Programmieren allgemein
by Natcree,
14. Jun 2015
Danke habe es jetz hinbekommen ;)
Forum: Programmieren allgemein
by Natcree,
14. Jun 2015
Wenn ich mit diesem Code
var
MemoText, SuchStr, suchStr2: String;
FundPos, FundPos2: Integer;
begin
MemoText:= Memo1.Text;
SuchStr:= 'usr/';
SuchStr2:= '/';
FundPos:= Pos(SuchStr, MemoText);
Forum: Programmieren allgemein
by Natcree,
14. Jun 2015
wenn ich jetzt statt einem Wort1 --> Wort1/ der text soll markiert werden bis hier hin-->/
wie mache ich das dann?
hier funktioniert der code nicht
Forum: Programmieren allgemein
by Natcree,
14. Jun 2015
wenn ich es so einsetze dann markiert er nicht richtig
MemoText:= Memo1.Text;
SuchStr:= 'Wort1';
SuchStr2:= 'Wort2';
FundPos:= Pos(SuchStr, MemoText);
FundPos2 := PosEx( SuchStr2, MemoText, FundPos+1);
if FundPos = 0 then exit; //Wort nicht gefunden
Memo1.SetFocus;
Memo1.Selstart:= FundPos;
Forum: Programmieren allgemein
by Natcree,
14. Jun 2015
Memo1.SetFocus;
Memo1.Selstart:= FundPos +4;
Memo1.Sellength:= Length(SuchStr);
// WIe erhalte ich Hier die länge bis zum wort2?
Muss ich Word2 := PosEx( SuchStr2, MemoText, FundPos+1); bei memo1.Sellength:= Length(Suchstr); einsetzen?
Forum: Programmieren allgemein
by Natcree,
14. Jun 2015
Hallo ich möchte aus einem TMemo ein wort Finden
das mache ich so
procedure TForm1.Button6Click(Sender: TObject);
var
MemoText,SuchStr: String;
FundPos: Integer;
begin
MemoText:= Memo1.Text;