Hallo,
könnt Ihr mal einen Blick auf diesen Code werfen. Case 1 ist richtig. Aber wenn ich die Markierung wieder rausnehmen möchte, wird mir ein angehangen.
Habe ich einen Logik oder Verständisfehler?
Delphi-Quellcode:
// Eigenschaften:
// allowallup -> true;
// groupindex -> 1;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Case SpeedButton1.GroupIndex of
1: begin
RichEdit1.SelText := '[b]' + RichEdit1.SelText + '[/b]';
end;
0: begin
RichEdit1.SelText := StringReplace(RichEdit1.SelText, '[b]' + RichEdit1.SelText + '[/b]', RichEdit1.SelText, [RfReplaceAll]);
end;
end;
end;