Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by littleDave,
4. Jul 2008
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....
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by littleDave,
4. Jul 2008
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...
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by littleDave,
4. Jul 2008
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.
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.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by littleDave,
3. Jul 2008
Jetzt wo ich gerade die Antwort von RavenIV sehe: meinst du meinen Beitrag :shock: (hoffentlich nicht ;-))
@Dax:
Ich glaube auch, dass diese Fortschrittsanzeige nicht so sehr brauchbar ist. Aber vielleicht hilft es dem ein oder anderen, Fortschrittsanzeigen genauer zu verstehen - jetzt nicht vielleicht mit dem Quelltext aus dem ersten Beitrag, aber so grob ist das keine all zu schlechte...
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by littleDave,
18. Jun 2008
Ich hab das ganze mal etwas umgeschrieben um es allgemeiner anwenden zu können (ungetestet da Delphi nicht offen)
type
TProgressEvent = procedure(aWorkPos, aWorkMax, aResultsFound: integer) of object;
procedure SearchFunc(const aTarget, aRipping: TStrings; SearchStr: string;
CaseSensitive: boolean; aCallBackEvent: TProgressEvent);
var i :...