Synedit editieren

[peterbelow]

Zitat von Delbor:

Hi zusammen

Delphi-Quellcode:

procedure TMainPage.BtnAbsatzClick(Sender: TObject);
  var X :String;
begin
  X := IntToStr(SynEdiHTML.CaretX);
  SynEdiHTML.Lines[SynEdiHTML.CaretX].Insert(SynEdiHTML.CaretX, ' <p>' + '</p>');
//  sLinebreak +                                                  //  X +
//  sLinebreak +
end;

Synedit kenne ich zwar nicht, aber wenn das in etwa wie TMemo funktioniert gibt die LInes-Eigenschaft eine Zeile als String zurück und in diesen fügt das Insert dann die Tags ein (Insert ist eine Methode von TStringhelper), und der resultierende String wird dann weggeworfen, da Du ihn halt nicht an SynEdiHTML.Lines[SynEdiHTML.CaretX] zuweist, um die alte Zeile zu ersetzen. Der Zeilenindex sollte sicher auch CaretY sein, nicht CaretX.

Um Text an der momentanen Position des Carets einzufügen ist eine Zuweisung an SelText wirklich die beste Methode, soweit SelCount (oder war das SelLength?) = 0 ist.

[Delbor]

Hi peterbelow

Vielen Dank für die Antwort! Ich habs dann doch mal getestet, und ja...
Es ist lange her, seit ich mal mit dem Memo oder dem Richedit gearbeitet habe. Ansonsten verwende ich eigentlich nur die Methoden von TStrings - daher auch mein Versuch mit Insert.

Delphi-Quellcode:

procedure TMainPage.BtnAbsatzClick(Sender: TObject);
  var X :Integer;
begin
  SynEdiHTML.SelText := ' <p>' +
  sLinebreak +                                                  //  X +
  sLinebreak +
  '</p>';
end;

Gruss
Delbor