Teilstrings in RichEdit färben

[Darko]

Ich habe eine Art Protokoll in meinem Programm und möchte dies nun etwas umgestalten.

Delphi-Quellcode:

function DoesFileExist(Path: String): String;
begin
  if FileExists(Path) then begin
    Protokoll.Font.Color := clGreen;
    Result:='OK';
    Protokoll.Font.Color := clBlack;
  end
  else begin
    Protokoll.Font.Color := clRed;
    Result:='Datei nicht gefunden!';
    Protokoll.Font.Color := clBlack;
  end;
end;

Mit dieser Funktion lasse ich, falls eine Datei existiert ein 'OK' ausgeben, wenn nicht eben 'Datei nicht gefunden'. Eigtl sollte dies dann in der jeweils anderen Farbe ausgegeben werden, was aber leider nicht funktioniert. Habe so auch noch nie mit den RichEdits gearbeitet. Kann mir da jmd helfen?

[Butch87]

du änderst die farbe ja auch gleich wieder!! Ich denk ma du schreibst den rückgabewert der funktion in das RichEdit, allerdings wurde dann die farbe schon wieder auf schwarz geändert

Delphi-Quellcode:

if FileExists(Path) then begin 
    Protokoll.Font.Color := clGreen; 
    Result:='OK';  
  end 
  else begin 
    Protokoll.Font.Color := clRed; 
    Result:='Datei nicht gefunden!';     
  end;

danach musst du die farbe dann wieder auf schwarz setzen, oder halt so:

Delphi-Quellcode:

Protokoll.clear;
if FileExists(Path) then begin 
    Protokoll.Font.Color := clGreen; 
    Protokoll.Lines.add('OK'); 
  end 
  else begin 
    Protokoll.Font.Color := clRed; 
    Protokoll.Lindes.Add('Datei nicht gefunden!'); 
  end; 
  Protokoll.Font.Color := clBlack;