RichEdit + OpenDlg + ReadOnly := true ???

[T.E.]

Hallo!

Ich möchte gerne verhindern, das bei einem bestimmten FileName im Öffnen Dialog das TRichEdit beschrieben werden kann... dazu dachte ich würde derfolgende Code funzen...

Delphi-Quellcode:

procedure TTMPV.ffnen1Click(Sender: TObject);
begin
if Open.Execute then //Open ist der OpenDialog
  begin
  if Open.FileName = 'ICCVerlauf.sitmp' then
      begin
      TempVIewer.ReadOnly := true; //TempViewer ist das RichEdit
      end;
  TempViewer.Lines.LoadFromFile(Open.FileName);

  end
else
  TempViewer.Lines.Clear;
end;

Aber denkste...
Woran liegt das bzw. wie muss ich das richtig machen?

[DeddyH]

Lass Dir mal Open.FileName ausgeben ;) . IMHO sollte es so gehen:

Delphi-Quellcode:

if AnsiStrIComp(PChar(ExtractFileName(Open.FileName)),'ICCVerlauf.sitmp') = 0 then...

[T.E.]

Ah vielen dank....

[DeddyH]

Wenn es nur um die eine Datei geht, kann man auch kürzen:

Delphi-Quellcode:

TempViewer.ReadOnly := AnsiStrIComp(PChar(ExtractFileName(Open.FileName)),'ICCVerlauf.sitmp') = 0;

oder

Delphi-Quellcode:

TempViewer.ReadOnly := not Boolean(AnsiStrIComp(PChar(ExtractFileName(Open.FileName)),'ICCVerlauf.sitmp'));