Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: RichEdit - Schreibschutz für einzelne Zeilen

    Delphi
    by runningsoft, 18. Jan 2013
  Ich hab das jetzt so gelöst, dass ich die gesamte Länge des Textes ermittele und davon die Anzahl der Zeilenumbrüche abziehe. Diese Anzahl ermittle ich in einer Funktion, die das Vorkommen von #13 im gesamten Text zählt.
  
  Wen der Code interessiert:
  
  function TForm11.CountChar(const RichEdit: TRXRichEdit; s: string): integer;
  //diese Funktion sucht in dem übergebenen RichEdit nach der Anzahl...
• Forum: Object-Pascal / Delphi-Language

  AW: RichEdit - Schreibschutz für einzelne Zeilen

    Delphi
    by runningsoft, 18. Jan 2013
  Ich hab mal noch ein bisschen probiert:
  
  Ich habe in meiner Prozedur ja Length(RxRichEdit1.Text) verwendet, um, wie ich dachte, die Anzahl der in der Schleife erzeugten Zeichen zu ermitteln und genau bis dorthin SelLength anzuwenden.
  
  Rein rechnerisch werden in meiner Schleife 78 Zeichen erzeugt, ein Length(RxRichEdit1.Text) ergibt aber eine Textlänge von 100 Zeichen.
  
  Daraus folgere ich,...
• Forum: Object-Pascal / Delphi-Language

  AW: RichEdit - Schreibschutz für einzelne Zeilen

    Delphi
    by runningsoft, 18. Jan 2013
  Daran hatte ich auch gedacht, und ursprünglich
  
  RxRichEdit1.SelStart := TxtLength + 1;
  with RXRichEdit1.SelAttributes do Protected := false;
  
  verwendet.
  
  Da ja aber ab dem Cursor noch nichts ausgewählt sein kann (da man ja ab hier erst weiter schreiben soll) hat das keine Auswirkung. Das RichEdit bleibt komplett gesperrt.
• Forum: Object-Pascal / Delphi-Language

  RichEdit - Schreibschutz für einzelne Zeilen

    Delphi
    by runningsoft, 18. Jan 2013
  Hallo,
  
  wie bekomme ich einen Schreibschutz für einzelne Zeilen in einem RichEdit hin?
  
  procedure TForm11.Button2Click(Sender: TObject);
  var i, TxtLength : integer;
  begin
  for I := 0 to 10 do
  begin
  RxRichEdit1.Lines.Add('Zeile ' + IntToStr(i));