Ein Wort vor und nach einem markiertem Text einfügen

[ByteLord]

Hi Leute

also ich will vor und nach einem markierten text jeweils ein wort einfüge so wie: [anfang] und [ende] wenn man auf einen button drückt.

weiß jemand wie des geht?
würd mich sehr über eure Hilfe freuen.

[edit=Daniel B]Doppelpost gelöscht. Danke für die Meldung! Mfg, Daniel B[/edit]

[edit=Daniel B]Titel korrigiert. Mfg, Daniel B[/edit]

[Daniel B]

Hallo und herzlich Willkommen im Forum!

Da Du Dich nicht dazu äusserst in welcher Form der String vorliegt, oder mit welchen Komponenten Du arbietest, gehe ich jetzt einfach mal von einem Edit aus.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
  Edit2.Text := '[Anfang]' + Edit2.Text + '[Ende]';
end;

Grüsse, Daniel :hi:

[ByteLord]

Beispiel:

hallo,
wie gehts?
mfg

und jetzt "das wie gehts?" in einem Memo markiert ist, und wenn man dann
einen button drückt,
sollte dann das rauskommen:

hallo
[Anfang] wie gehts? [Ende]
mfg


ich weiß nicht wie ich das machen soll, ich hab erst grad mit delphi angefangen.

[Daniel B]

Hallo,

hier ist die Lösung, samt Gruss von Mirilin. ;)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  A = '[Anfang]';
  B = '[Ende]';
begin
  Memo1.SelText := A + Memo1.SelText + B;
end;

Vorraussetzung ist, das Du die gewünschte zeile vorher markierst und dann auf den Button klickst.

Grüsse, Daniel :hi:

[ByteLord]

hey vielen dank,
kann ich dann jetzt noch irgendwie das ´[Anfang] und [Ende] farbig machen?

[Niko]

Hallo,

ein Memo kann nur einfarbigen Text darstellen. Wenn du statt dem Memo ein TRichEdit verwendest müsste es so gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  A = '[Anfang]';
  B = '[Ende]';
var
  s: String;
begin
  with RichEdit1 do
  begin
    s := SelText;
    SelAttributes.Color := clRed;
    SelText := A;
    SelAttributes.Color := clWindowText;
    SelStart := SelStart + SelLength;
    SelLength := 0;
    SelText := s;
    SelAttributes.Color := clRed;
    SelText := B;
    SelAttributes.Color := clWindowText;
  end;
end;

[Daniel B]

Hallo,

sind Deine beiden Fragen nun beantwortet? Dann Bitte den Thread auch als solches kennzeichnen, sonst übernehme ich das demnächst. ;)

Grüsse, Daniel :hi:

[ByteLord]

ja, vielen dank für deine Antwortetn.