so ich hab jetzt folgendes heraus gebracht:
Delphi-Quellcode:
procedure TForm1.RichEdit1Change(Sender: TObject);
var
Line: string;
uhr: integer;
name1: integer;
begin
line := richedit1.Lines[0];
uhr := pos(']' , line);
name1:= pos(']', line)+1;
richedit1.SelStart := 0;
richedit1.SelLength := uhr;
richedit1.SelAttributes.Color := clBLue;
richedit1.SelStart := uhr+1;
richedit1.SelLength := name1;
richedit1.SelAttributes.Color := clLime;
richedit1.SelStart := uhr+name1;
richedit1.SelLength := length(line);
richedit1.SelAttributes.Color := clred;
end;
wenn aber jetzt eine nachricht hinzugefügt wird kommt das:
Zitat:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt client.exe ist eine
Exception der Klasse EOutOfResources mit der Meldung 'Fehler beim Einfügen einer Zeile in RichEdit' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
jetzt bin ich am ende!!
bitte helft mir!
thx