In einer Memo suchen?

[Christian Seehase]

Moin Citybreaker,

ach ja, und nicht zu vergessen:

Die Eigenschaft HideSelection des Memo sollte auf false stehen.

[citybreaker]

Hochkommas sind weg und es passiert trotzdem nichts.

--- Edit ---
Jetzt gehts. Kann man auch nur das Suchwort makieren lassen. :-D

[Sharky]

Zitat:

Zitat von citybreaker

.... Kann man auch nur das Suchwort makieren lassen. :-D

Hai citybreaker,

das sollte gehen wenn Du

Code:

Memo1.SelLength := length(Memo1.Lines[iLine]);

durch

Code:

Memo1.SelLength := length(Edit1.Text);

ersetzt.

[citybreaker]

Zitat:

Zitat von Sharky

Zitat:

Zitat von citybreaker

.... Kann man auch nur das Suchwort makieren lassen. :-D

Hai citybreaker,

das sollte gehen wenn Du

Code:

Memo1.SelLength := length(Memo1.Lines[iLine]);

durch

Code:

Memo1.SelLength := length(Edit1.Text);

ersetzt.

Hai, geht leider nicht.
Ich muss jetzt nochmal ne Frage stellen. Wie klappt das
mit einer SynMemo? *bitte nicht hauhen* :duck:
Da gibts nähmlich sellenght nicht.

[Christian Seehase]

Moin Sharky,

dann geht's noch viel kürzer, weil man ja nicht erst die Zeile und deren Anfang ermitteln muss

Delphi-Quellcode:

  iPos := pos(Edit1.Text,Memo1.Text);
  if iPos = 0 then exit;
  Memo1.SelStart  := iPos-1;
  Memo1.SelLength := length(Edit1.Text);

@Citybreaker:
SynMemo kennt aber SelEnd, und daraus kann man da ja die Länge berechnen.

Delphi-Quellcode:

  iPos := pos(Edit1.Text,SynMemo1.Text);
  if iPos = 0 then exit;
  SynMemo1.SelStart := iPos-1;
  SynMemo1.SelEnd   := SynMemo1.SelStart+length(Edit1.Text)-1;

[citybreaker]

Zitat:

Zitat von Christian Seehase

Moin Sharky,

dann geht's noch viel kürzer, weil man ja nicht erst die Zeile und deren Anfang ermitteln muss

Delphi-Quellcode:

  iPos := pos(Edit1.Text,Memo1.Text);
  if iPos = 0 then exit;
  Memo1.SelStart  := iPos-1;
  Memo1.SelLength := length(Edit1.Text);

@Citybreaker:
SynMemo kennt aber SelEnd, und daraus kann man da ja die Länge berechnen.

Delphi-Quellcode:

  iPos := pos(Edit1.Text,SynMemo1.Text);
  if iPos = 0 then exit;
  SynMemo1.SelStart := iPos-1;
  SynMemo1.SelEnd   := SynMemo1.SelStart+length(Edit1.Text)-1;

So jetzt hab ich das wenn ich jetzt nach
alex suche wird nur ale makiert.

[Christian Seehase]

Moin Citybreaker,

Zitat:

Zitat von citybreaker

So jetzt hab ich das wenn ich jetzt nach
alex suche wird nur ale makiert.

Ich habe beide Varianten noch einmal ausprobiert (einfach per Copy&Paste hier heraus kopiert), und sie funktionieren beide einwandfrei.

Wie hast Du's denn gemacht?

[citybreaker]

Ich habs folgendermaßen gemacht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iPos   : integer;
  iLine  : integer;
begin
  iPos := pos(Edit1.Text, SynMemo.Text);
  if iPos = 0 then exit;
  SynMemo.SelStart := iPos-1;
  SynMemo.SelEnd   := SynMemo.SelStart+length(Edit1.Text)-1;
end;

[Christian Seehase]

Moin Citybreaker,

komisch.
Das funktioniert ja rein rechnerisch schon Problemlos.

Hast Du vielleicht im Edit1.Text noch ein Blank vor dem Alex stehen gehabt?

[citybreaker]

Nein, aber was mir aufgefallen ist.
Bei alex hat er ale makiert, wenn ich
ale gesucht hab hat er al makiert. Bei anderen
wörtern genau so immer einen buchstabenweniger.