Text in einer memo Komponente einfügen

blackbirdXXX · Beiträge: 1077 Erhaltene Danke: 1 Ubuntu Dapper

Ich möchte einen Text in der tmemo Komponente einfügen.
Aber nicht mit memo1.Lines.Add('Irgendwas'); sondern nach der Markierung im Text.

Ich habe keine Möglichkeit gefunden.

_________________
Klein, schwarz und ärgert Techniker? Jumper!

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Zitat:

Ich habe keine Möglichkeit gefunden.

Ich aber!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
VAR temp : STRING;
begin
  temp:=Memo1.Text;
  Insert(edit1.text,temp,Memo1.SelStart+1);
  Memo1.Text:=temp;
end;

MfG,
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

blackbirdXXX · Beiträge: 1077 Erhaltene Danke: 1 Ubuntu Dapper

funktioniert. Aber geht das nicht schneller? Wenn ich 15 Zeilen einfügen will müsste ich das 15 mal machen.

_________________
Klein, schwarz und ärgert Techniker? Jumper!

Andreas L. · Verfasst: Sa 17.05.03 18:53

Nimm ein SynEdit udn ändere es so das es aussieht wie ein Memo, dann der Code:

markieren

Delphi-Quelltext

1:	SynEdit1.seltext ('Hallo');

Der Text wird am Curser eingefügt!

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

@blackbirdXXX: Du könntest die Strings, die Du dort als Zeilen einfügen willst mit '#10#13' dazwischen hintereinander hängen und dann als einzigen String einfügen.

@onlinehome: man muss nicht für jedes Problem direkt eine Fremdkomponente verwenden. Ein Programmierer sollte seine Probleme weitestgehend selbst lösen und nicht nur nach Lösungen bei anderen suchen. Es heißt ja "Programmierer" und nicht "Torry-Benutzer".

//Edit: und außerdem hat onlinehome damit schon eine kürzere Lösung gepostet, das funktioniert auch mit einem normalen Memo!

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Ehemaliges Mitglied Erhaltene Danke: 1

Zu dem Vorschlag meines direktem Vorredners sage ich jetzt mal nix. :roll:

Mist ich meine natürlich onlinehome.

Wenn kein Text vorhanden ist, der erhalten bleiben muß, dann kannst du der Texteigenschaft des Memos deine Zeichenkette zuweisen.

blackbirdXXX · Beiträge: 1077 Erhaltene Danke: 1 Ubuntu Dapper

Habe jetzt verschiedene Varianten getestet und finde die mit dem Synedit nicht so schlecht.

allerdings heißt es nicht

markieren

Delphi-Quelltext

1:	SynEdit1.seltext ('Hallo');

sondern

markieren

Delphi-Quelltext

1:	SynEdit1.seltext := 'Hallo';

Die anderen Varianten verwende ich auch sie sind aber zu umständlich. Für meinen Fall ist das mit dem synedit sowieso perfekt weil ich einen HTML Editor schreibe und ich ein synedit statt memo habe.

Nur noch eine Frage. Wie füge ich mit Synedit1.seltext eine neu Zeile ein?

_________________
Klein, schwarz und ärgert Techniker? Jumper!

blackbirdXXX · Beiträge: 1077 Erhaltene Danke: 1 Ubuntu Dapper

Kann man nach

markieren

Delphi-Quelltext

1:	synedit1.seltext := 'ein Text';

auch direkt eine neue Zeile einfügen?

_________________
Klein, schwarz und ärgert Techniker? Jumper!

Nagelbrett · Beiträge: 75

ja, wenn du #10#13 anhängst, kannst du normalerweise einen zeilenumbruch bewerkstelligen

musst du mal probieren ob das in dem fall funktioniert
also quasi...:

markieren

Quelltext

1:	synedit1.seltext := 'ein Text' + #10#13;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme