Hilfe Text einfügen

[do...@unforgettable.com]

Hi,
Ich habe ein kleines Problem, da ich noch nicht allzulange mit Delphi
arbeite sei mir bitte diese Frage gestattet.
Wie bekomme ich einen Text in ein Memo- oder RichEdit-Feld genau an
der
Cursor Position eingefügt.
Also ich drücke einen Button und der Text " Hallo " oder so ähnlich
soll dann im Memo-Feld stehen.
Bitte eine andere Möglichkeit dafür:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(' Hallo')
end;

Thank's Moritz

[Hans-Guenther Nusseck]

do...@unforgettable.com schrieb im Beitrag
<34ed2e62...@pop-news.metronet.de>...

> Hi,
> Ich habe ein kleines Problem, da ich noch nicht allzulange mit Delphi
> arbeite sei mir bitte diese Frage gestattet.
> Wie bekomme ich einen Text in ein Memo- oder RichEdit-Feld genau an
> der
> Cursor Position eingefügt.
> Also ich drücke einen Button und der Text " Hallo " oder so ähnlich
> soll dann im Memo-Feld stehen.

Schau dir mal die Memo-Eigenschaft SelStart an.
Online Hilfe:
Beschreibung
Durch Lesen von SelStart wird die Position des ersten markierten Zeichens
festgelegt, wobei 0 das erste Zeichen angibt. Ist kein markierter Text
vorhanden,
bezeichnet SelStart die Position des Cursors.......

Mittels SelStart kannst Du zurückrechnen, in welcher Zeile und an welcher
Stelle
innerhalb des dortigen Strings sich der Cursor befindet.
Mit dieser Information kannst Du einen String an der Cursorposition
einfügen:

insert('neuer String', Memo1.Lines[Zeile], Spalte)

Viel Spaß damit...

[Gunar Scholz]

do...@unforgettable.com wrote:
>
> Wie bekomme ich einen Text in ein Memo- oder RichEdit-Feld genau an
> der
> Cursor Position eingefügt.

Memo.SelText := 'einzufuegender Text';

Felix

[Rietzler Peter]

RichEdit.Seltext := '........'

cu Peter