AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

In einer Memo suchen?

Ein Thema von citybreaker · begonnen am 18. Okt 2003 · letzter Beitrag vom 19. Okt 2003
Antwort Antwort
Seite 2 von 3     12 3   
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#11

Re: In einer Memo suchen?

  Alt 18. Okt 2003, 14:48
Moin Citybreaker,

ach ja, und nicht zu vergessen:

Die Eigenschaft HideSelection des Memo sollte auf false stehen.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
citybreaker
(Gast)

n/a Beiträge
 
#12

Re: In einer Memo suchen?

  Alt 18. Okt 2003, 14:48
Hochkommas sind weg und es passiert trotzdem nichts.

--- Edit ---
Jetzt gehts. Kann man auch nur das Suchwort makieren lassen.
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#13

Re: In einer Memo suchen?

  Alt 18. Okt 2003, 15:04
Zitat von citybreaker:
.... Kann man auch nur das Suchwort makieren lassen.

Hai citybreaker,

das sollte gehen wenn Du

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

Code:
Memo1.SelLength := length(Edit1.Text);
ersetzt.
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
citybreaker
(Gast)

n/a Beiträge
 
#14

Re: In einer Memo suchen?

  Alt 18. Okt 2003, 16:00
Zitat von Sharky:
Zitat von citybreaker:
.... Kann man auch nur das Suchwort makieren lassen.

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*
Da gibts nähmlich sellenght nicht.
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#15

Re: In einer Memo suchen?

  Alt 18. Okt 2003, 16:28
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;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
citybreaker
(Gast)

n/a Beiträge
 
#16

Re: In einer Memo suchen?

  Alt 18. Okt 2003, 17:07
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.
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#17

Re: In einer Memo suchen?

  Alt 18. Okt 2003, 17:25
Moin Citybreaker,

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?
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
citybreaker
(Gast)

n/a Beiträge
 
#18

Re: In einer Memo suchen?

  Alt 18. Okt 2003, 17:39
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;
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#19

Re: In einer Memo suchen?

  Alt 18. Okt 2003, 17:47
Moin Citybreaker,

komisch.
Das funktioniert ja rein rechnerisch schon Problemlos.

Hast Du vielleicht im Edit1.Text noch ein Blank vor dem Alex stehen gehabt?
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
citybreaker
(Gast)

n/a Beiträge
 
#20

Re: In einer Memo suchen?

  Alt 18. Okt 2003, 18:12
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.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz