AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein EMB DCE 12 - TRichEdit löscht Lines Inhalt nicht

EMB DCE 12 - TRichEdit löscht Lines Inhalt nicht

Ein Thema von paule32.jk · begonnen am 1. Okt 2024 · letzter Beitrag vom 1. Okt 2024
Antwort Antwort
Benutzerbild von paule32.jk
paule32.jk

Registriert seit: 24. Sep 2022
Ort: Planet Erde
353 Beiträge
 
Delphi 11 Alexandria
 
#1

EMB DCE 12 - TRichEdit löscht Lines Inhalt nicht

  Alt 1. Okt 2024, 11:49
Hallo,
meine kleine PrimeFinderAnwendung nutzt ein TRichEdit Control, um die gefundenen Primes anzuzeigen.
Da das ganze bei größeren Zahlen und Zeitverlauf langsamer wird, dachte ich mir die Lines im TRichEdit zu löschen
mittels:
RichEdit1.Lines.Clear;

Allerdings funktioniert das nicht.
Hier habe ich den Code, der zwar compiliert aber ein nicht richtiges Verhalten aufweist:
hier der Link zu den Quellen

Vieleicht stimmt die Zeile: 223 nicht, weil das .Count Property nicht funkt ?

Für sachdienliche Auskünfte danke ich schonmal...
Frag doch einfach
Alles was nicht programmiert werden kann, wird gelötet
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.934 Beiträge
 
Delphi 12 Athens
 
#2

AW: EMB DCE 12 - TRichEdit löscht Lines Inhalt nicht

  Alt 1. Okt 2024, 12:30
Per se sollte es eigentlich funktionieren.

Ich hätte erst gesagt: Versuch es mal mit RichEdit1.Clear; ,
aber es ist das, was letztendlich RichEdit1.Lines.Clear; auch macht.


Zitat von TRichEdit.Lines.Clear:
Delphi-Quellcode:
procedure TRichEditStrings.Clear;
begin
  RichEdit.Clear;
end;

vielleicht noch so? (alles löschen)
Delphi-Quellcode:
RichEdit1.SelectAll;
RichEdit1.ClearSelection;
Oder so, also ab zweiter Zeile löschen (alles außer der Ersten)
Delphi-Quellcode:
RichEdit1.SelStart := SendMessage(RichEdit1.Handle, EM_LINEINDEX, 1, 0):
RichEdit1.SelLength := MaxInt;
RichEdit1.ClearSelection;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu ( 1. Okt 2024 um 13:33 Uhr) Grund: MaxInt, nicht -1
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.934 Beiträge
 
Delphi 12 Athens
 
#3

AW: EMB DCE 12 - TRichEdit löscht Lines Inhalt nicht

  Alt 1. Okt 2024, 12:47
ach ja
Zitat:
Delphi-Quellcode:
  case gap_zahl of
     0: begin StartY := Rect.Bottom - 10 * 1; end;
     1: begin StartY := Rect.Bottom - 10 * 2; end;
     ...
StartY := Rect.Bottom - 10 * (StartY + 1);
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von paule32.jk
paule32.jk

Registriert seit: 24. Sep 2022
Ort: Planet Erde
353 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: EMB DCE 12 - TRichEdit löscht Lines Inhalt nicht

  Alt 1. Okt 2024, 12:47
geht irgendwie nicht so gut.

ich habe den Code etwas abgeändert, so dass im Timer Event der Timer gestoppt wird und eine MessageBox angezeigt werden sollt.
Ist aber nicht der Fall.
Die Timer werden nicht lahmgelegt und showmessage wird auch nicht angezeigt:

Delphi-Quellcode:
if RichEdit1.Lines.Count >= 30 then
begin
  Timer1.Enabled := false;
  Timer2.Enabled := false;
  showMessage('yyyy');
  s := RichEdit1.Lines.Strings[0]; // Erste Zeile speichern
  RichEdit1.SelectAll;
  RichEdit1.ClearSelection;
end;
Frag doch einfach
Alles was nicht programmiert werden kann, wird gelötet
  Mit Zitat antworten Zitat
Kas Ob.

Registriert seit: 3. Sep 2023
342 Beiträge
 
#5

AW: EMB DCE 12 - TRichEdit löscht Lines Inhalt nicht

  Alt 1. Okt 2024, 12:59
if richedit1.lines.count >= 30 then
>= 30 !!
Kas
  Mit Zitat antworten Zitat
Benutzerbild von paule32.jk
paule32.jk

Registriert seit: 24. Sep 2022
Ort: Planet Erde
353 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: EMB DCE 12 - TRichEdit löscht Lines Inhalt nicht

  Alt 1. Okt 2024, 13:07
indeed @kas ob

The Line Number in RichEdit Control does not have the linear Numbers from 1,2,...,n
because the Line Counts depend on the matched Prime.

The following Code will work fine:
Delphi-Quellcode:
if RichEdit1.Lines.Count >= 50 then
begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;

    s := RichEdit1.Lines.Strings[0]; // Erste Zeile speichern

    RichEdit1.Lines.Clear;
    RichEdit1.Lines.Add(s);

    Timer1.Enabled := True;
    Timer2.Enabled := True;
end;
The Lines is then corresponding with Prime 223.
Frag doch einfach
Alles was nicht programmiert werden kann, wird gelötet
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz