Forum: Sonstige Fragen zu Delphi
by Jürgen Thomas,
23. Feb 2007
Entschuldige bitte, was sollen wir "Helfer" jetzt davon halten? Du gibst uns Deine Lösung bekannt, ohne auf unsere Hinweise einzugehen. Dabei ist Dein Verfahren nur eine Teillösung; denn Du hängst nur ein Zeichen an. Laut Frage willst Du ein Zeichen in das Memo bekommen; und das bedeutet, dass es auch mitten in den vorhandenen Text kommen kann. Alle unsere Antworten berücksichtigen das!
...
Forum: Sonstige Fragen zu Delphi
by Jürgen Thomas,
23. Feb 2007
Dann muss aber vorher unbedingt geprüft werden, ob SelLength = 0 ist! Jürgen
Ansonsten hast Du natürlich recht: Man muss nicht alles neu programmieren (wie ich gerade). Jürgen
Forum: Sonstige Fragen zu Delphi
by Jürgen Thomas,
23. Feb 2007
Hallo,
willst Du in den Text innerhalb des Memo-Feldes per Button.Click ein Zeichen einfügen? Dann geht das z.B. so ähnlich:
procedure TForm1.TextEinfuegen(var aMemofeld: TMemo; const sText: string);
begin
aMemofeld.Lines.Text := LeftStr(aMemofeld.Lines.Text, aMemofeld.SelStart-1)
+ sText
+ RightStr(aMemofeld.Lines.Text,...