|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: RichEdit + OpenDlg + ReadOnly := true ???
2. Okt 2007, 20:41
Wenn es nur um die eine Datei geht, kann man auch kürzen:TempViewer.ReadOnly := AnsiStrIComp(PChar(ExtractFileName(Open.FileName)),'ICCVerlauf.sitmp') = 0;
oderTempViewer.ReadOnly := not Boolean(AnsiStrIComp(PChar(ExtractFileName(Open.FileName)),'ICCVerlauf.sitmp'));
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|