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;