Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
19. Okt 2003
Moin Sharky,
SynMemo.pas 31.05.2001 14:07 / $Id: SynMemo.pas,v 1.5 2001/05/31 12:07:07 claplace Exp $
$Id ist im Header der Datei zu finden.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
19. Okt 2003
Moin Sharky,
:shock: :shock: :shock:
also wenn ich das mit Deinem Code ausprobiere, dann wird
eine Stelle zu spät mit der Markierung begonnen
eine Stelle zu viel markiert (falls hinter der Fundstelle noch genug in der Zeile steht)
und das kann doch eigentlich auch nicht anders sein, weil
TSynMemo.SelStart 0 basiert, der Rückgabewert von pos 1 basiert ist
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
19. Okt 2003
Moin Sharky,
nein, ist nicht falsch, da ja hier der Endpunkt der Markierung berechnet wird, nicht die Länge.
Das Prinzip ist das gleiche, als hätte man einen Startoffset, an dem man etwas speichert. Um jetzt die nächste freie Position zu berechnen, addiert man auf den StartOffset die Länge dessen, was man gespeichert hat drauf. Da hier aber nicht die nächste freie Stelle benötigt wird,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
18. Okt 2003
Moin Citybreaker,
komisch.
Das funktioniert ja rein rechnerisch schon Problemlos.
Hast Du vielleicht im Edit1.Text noch ein Blank vor dem Alex stehen gehabt?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
18. Okt 2003
Moin Citybreaker,
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?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
18. Okt 2003
Moin Sharky,
dann geht's noch viel kürzer, weil man ja nicht erst die Zeile und deren Anfang ermitteln muss
iPos := pos(Edit1.Text,Memo1.Text);
if iPos = 0 then exit;
Memo1.SelStart := iPos-1;
Memo1.SelLength := length(Edit1.Text);
@Citybreaker:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
18. Okt 2003
Moin Citybreaker,
ach ja, und nicht zu vergessen:
Die Eigenschaft HideSelection des Memo sollte auf false stehen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
18. Okt 2003
Moin Citybreaker,
Tippfehler :wall:
iPos := pos(...
die Parameter von pos sind dann hoffentlich klar.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
18. Okt 2003
Moin Citybreaker,
:oops: Sorry.
Ist wohl noch zu früh :? :mrgreen:
Also noch einmal von Vorne, diesmal ausführlich (Strafe muss sein ;-)):
var
iPos : integer;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
18. Okt 2003
Moin Citybreaker,
Stichworte hierfür:
pos, SelStart, SelLength und, besonders wichtig und die Zeile herauszubekommen: EM_EXLINEFROMCHAR
@Mirage:
TMemo kennt allerdings FindText nicht.