Hi,
über folgenden Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure EliminateComments;
var
i: Integer;
begin
for i := Form1.RichEdit2.Lines.Count downto 0 do begin
if (Form1.RichEdit2.Lines[i] = '') then begin
Form1.RichEdit2.Lines.Delete(i);
continue;
end;
if Form1.RichEdit2.Lines[i][1] = '!' then
Form1.RichEdit2.Lines.Delete(i);
end; |
eliminiere ich alle Leerzeilen und all jene Zeilen, die mit einem "!" beginnen, aus meinem RichEdit. Das klappt wunderbar - bis, ja bis das der Inhalt des RichEdit nicht mehr ohne Scrollbar angezeigt werden kann. Dann aber versagt der Quelltext und lässt mittendrin einfach ein paar Zeilen aus.
Ich schätze mal, dass das ein Delphi-Bug is (bzw. ein Bug in TRichEdit), weil der selbe Code bei einem Memo funktioniert. Was kann ich tun, damit ich nicht zur Laufzeit ein Memo erstellen muss, damit mein Code richtig funktioniert?
AXMD
