AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Neuen Beitrag zur Code-Library hinzufügen Delphi Memo Durchsuchen & Fortschritsanzeige

Memo Durchsuchen & Fortschritsanzeige

Ein Thema von Noobix93 · begonnen am 18. Jun 2008 · letzter Beitrag vom 7. Jul 2008
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von littleDave
littleDave

Registriert seit: 27. Apr 2006
Ort: München
556 Beiträge
 
Delphi 7 Professional
 
#11

Re: Memo Durchsuchen & Fortschritsanzeige

  Alt 4. Jul 2008, 01:18
Zitat von Dax:
Zitat von littleDave:
Oder man blendet die "Fortschrittsanzeige" aus und sieht es als eine einfache und schnelle Möglichkeit, Text in einem Memo zu suchen.
Wenn ich mich recht erinnere, hat das Memo bereits entsprechende Funktionen - leider hab' ich aber grad kein Delphi da, um das zu überprüfen.
Also die Memo-Komponente an sich hat diese Funktion jetzt nicht direkt (hab gerade nachgeschaut; Delphi 7). Was ich aber jetzt nicht weiß ist, ob es eine SendMessage-Funktion dafür gibt.

[Edit]Hab gerade per Google mal gesucht und bin auf diesen Artikel gestoßen. Dort wird auch keine direkte Funktion von TMemo aufgerufen, sondern es wird "StrPos" zur Suche verwendet.[/Edit]
Jabber: littleDave@jabber.org
in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0
  Mit Zitat antworten Zitat
Dax
(Gast)

n/a Beiträge
 
#12

Re: Memo Durchsuchen & Fortschritsanzeige

  Alt 4. Jul 2008, 01:19
Hm, dann hat mich meine Erinnerung wohl etwas in die Irre geführt. Aber es gibt trotzdem noch Pos, .Text und die .Sel*-Properties, die mit Offets ins .Text als Wert arbeiten (again, falls ich mich nicht irre).
  Mit Zitat antworten Zitat
Benutzerbild von littleDave
littleDave

Registriert seit: 27. Apr 2006
Ort: München
556 Beiträge
 
Delphi 7 Professional
 
#13

Re: Memo Durchsuchen & Fortschritsanzeige

  Alt 4. Jul 2008, 01:29
Zitat von Dax:
Hm, dann hat mich meine Erinnerung wohl etwas in die Irre geführt. Aber es gibt trotzdem noch Pos, .Text und die .Sel*-Properties, die mit Offets ins .Text als Wert arbeiten (again, falls ich mich nicht irre).
Da hast du schon recht. Doch für einen Anfänger ist es sicherlich nicht einfach, diese Funktionen zu benutzen. Ich denke, wenn man die Funktion etwas umschreibt und leserlich macht (hab ich ja schon ein wenig versucht), ist es ein gutes Beispiel zur Anwendung dieser Funktion.
Ob es für einen Eintrag in der CodeLib reicht, weiß ich nicht (dafür bin ich noch nicht lange genug aktiv dabei), aber mir haben damals als Anfänger genau solche Beispiele extrem geholfen.
Jabber: littleDave@jabber.org
in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0
  Mit Zitat antworten Zitat
Dax
(Gast)

n/a Beiträge
 
#14

Re: Memo Durchsuchen & Fortschritsanzeige

  Alt 4. Jul 2008, 01:54
Hm, ich weiss nicht.
Delphi-Quellcode:
procedure FindAndMark(inMemo: TMemo; word: string; caseSensitive: Boolean := false);
var foundIndex: Integer;
begin
  if not caseSensitive then
    foundIndex := Pos(AnsiLowerCase(word), AnsiLowerCase(inMemo.Text))
  else
    foundIndex := Pos(word, inMemo.Text);

  if foundIndex > 0 then
  begin
    inMemo.SelStart := foundIndex;
    inMemo.SelLength := 0;
  end;
end;
Persönlich finde ich das sogar einfacher als die hier gezeigten Wege - plus dem Fakt, dass man damit auch nach strings suchen kann, die Zeilenbrücke enthalten. Nun statt Pos noch PosEx, und schon hat inkrementelle Suche
  Mit Zitat antworten Zitat
Benutzerbild von littleDave
littleDave

Registriert seit: 27. Apr 2006
Ort: München
556 Beiträge
 
Delphi 7 Professional
 
#15

Re: Memo Durchsuchen & Fortschritsanzeige

  Alt 4. Jul 2008, 02:23
Ich bezweifel nicht, dass das Beispiel hier nicht gerade extrem gut ist. Dein Beispiel versteh ich z.B. sofort. Doch für Anfänger ist sowas nicht einfach, daher finde ich, dass auch solche "banalen" Sachen vielleicht in die CodeLib hinzugefügt werden sollten. Ich weiß jetzt nicht, welches Nivea in der CodeLib herrscht, aber gerade solche Sachen finde ich persönlich für Anfänger sehr hilfreich.
Natürlich würde ich persönlich jetzt auch sagen, dass der Anfangs-Beitrag jetzt nicht so ganz das gelbe vom Ei ist (dieser von mir jetzt vielleicht auch nicht mehr so ganz, hab schon etwas Alkohol im Blut ), aber dennoch finde ich es sehr löblich, dass manche sich die Mühe geben, Vorschläge für die CodeLib hier hineinzustellen. Daher versuche ich gerade das beste daraus zu machen. Ich hoffe, dass das ankommt
Als ich noch Anfänger war, hab ich z.B. extrem viel Sachen von den Programmier-Tips vom SwissDelphiCenter angeschaut. Daher glaube ich, dass wenn man den Code etwas umschreibt (deiner ist ein sehr guten Ansatz), dass dann neuer Beitrag für die CodeLib enstehen könnte.
Mittlerweile sehe ich den ersten Beitrag eher als Denkanstoß für eine simple Suchfunktion und diesen Denkanstoß kann man doch ausnutzen, oder?
Jabber: littleDave@jabber.org
in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0
  Mit Zitat antworten Zitat
Benutzerbild von spaxxn
spaxxn

Registriert seit: 19. Nov 2004
253 Beiträge
 
Delphi XE2 Enterprise
 
#16

Re: Memo Durchsuchen & Fortschritsanzeige

  Alt 4. Jul 2008, 08:14
Sehe da kein CodeLib Potential.
  Mit Zitat antworten Zitat
Benutzerbild von RavenIV
RavenIV

Registriert seit: 12. Jan 2005
Ort: Waldshut-Tiengen
2.875 Beiträge
 
Delphi 2007 Enterprise
 
#17

Re: Memo Durchsuchen & Fortschritsanzeige

  Alt 7. Jul 2008, 10:32
Zitat von littleDave:
Jetzt wo ich gerade die Antwort von RavenIV sehe: meinst du meinen Beitrag (hoffentlich nicht ) [ist nicht vorwerfend gemeint sondern nur nachfragend]
Nein, ich meinte den ersten Beitrag von Noobix93.
Das ist ja total chaotisch.

Und ich sehe auch nicht die Dringlichkeit, das in die CodeLib zu stellen.
Klaus E.
Linux - das längste Text-Adventure aller Zeiten...
Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.
  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 20:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf