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?